SEPTEMBRE 1984 


A l'essai : Le Basic 
du nouveau HP-71 B 
Les matheux sont gôtés…. 


m Histoire des langages 
de programmation : 
FORTRAN, 30 ans déjà ! 


m Trois logiciels à la loupe : 
Basic graphique pour Orie 
Editeur-assembleur pour C.64 
De nouvelles fonctions 

pour PC-1500 


\(Orclimaote: 
CrEne eu Belgique : 166 FB - Canada : 295$C - Suisse : 6FS 


n 


LE LASER 2 


ON MICRO ORDINATEUR COULEUR SEC 
à VRAIMENT 1 RES ÉTONNANT. 


Microprocesseur Z 80 A e Langage Microsoft Basic + Affichage direct 
antenne télé SECAM ° Clavier 45 touches pleine écriture, + clef d’entrée, 
+ graphismes, + bip sonore anti-erreurs.. + Texte + graphismes mixables : 
9couleurs + Edition et correction plein écran e Son incorporé 
e Toutes options : extension + 16 K + 64 K, 
interface imprimante, imprimante, 
stylo optique, manettes, 
Jeux, modem, 
disquettes. 


VIDEO TECHNOLOGIE 
FRANCE 


19, rue Luisant - 91310 Montihéry 
Tél. (6)901.93.40 
Télex SIGMA 180114 


DRAGON 64 Prix : 3600 F TTC. adaptateur PERITEL en option 


Microprocesseur 6809 E 
Mémoire 64 K RAM 16 K ROM (41 K avec 4 pages graphiques) 
Ports RS 232. 2 manettes, ] cassette, 1 parallèle centronic 
Sorties Connecteur 40 lignes 6809 - PAL ou 

Peritel/UHF (son + vidéo) - 1 moniteur composite 
Clavier 83 touches machine à écrire avec autorépétition 
Affichage Noir sur vert 16 x 32 - 24 x 5] sous OS 9 

curseur bleu en mode 48 K 
Graphique 16 x 32 9 couleurs - 32 x 64 9 couleurs : 

128 x 96 2 sets 2 couleurs - 128 x 96 2 sets 4 couleurs 

256 x 192 2 sets 2 couleurs 
Son Par télé ou amplificateur 

Basic Microsoft®’ couleur étendu 


BON DE COMMANDE ET DEMANDE DE DOCUMENTATION 


Je désire recevoir : Une documentation 
Dragon 32 PERITEL UHF 
Dragon 64 PAL/Moniteur — PERITEL (650 F) 
Lecteur de disquette LJ 


ci-joint : Chèque bancaire [] Mandat [Z Date 
Contre remboursement Ü Signature 
Frais à ma charge 


LOGICIELS D 64 Kde 750 à 1250 F T.T.C. 


Système d'exploitation multitaches, multifonctions 
Pascal Langage P implemanté complet 
C Langage compilé linkable 
Dynacale Tableur professionnel 
Stylograph Traitement de textes + dictionnaire + liaison fichiers 
RMS Base de donnée 
Basic 09 Basic structuré complét modulable 


Flex Système d'exploitation le plus répandu 
dans le monde 


EXIGEZ LA CARTE DE GARANTIE DU REVENDEUR 


Prénom 


Adresse 


Code postal |. 


15, rue de Saint-Quentin, 75010 PARIS 


1 COUVERTURE 
Comme on peut le voir, 1l 
n'y a pas d'âge pour 
s'intéresser à la 
programmation. Ce mois-ci, 
l'illustration de notre 
couverture est Signée 

Fabien Lacaf. 


21 A VOS 


CLAVIERS 


_ POURQUOI, 


DIABLE, 
PROGRAMMEZ-VOUS ? 
Nous avons posé la question 
à cing personnes. Vous 
reconnaîtrez-vous dans les 
réponses que nous avons 
obtenues ? 


23 LA GAZETTE 


DE LIST 


33 TIC-TAC-TOE 


UN PROGRAMME 
MALIN 

Ecrit en Basic standard, le 
programme joue contre vous 
ou contre lui-même. Et plus 
il dispute de parties, plus il 
devient difficile à battre... 
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BY 
DE 


PL 
ETS S 
RD 

un des tout premiers 
langages évoluës continue à 
être utilise. Il a déjà trente 
ans, Mais sa dernière 
version date de 1978. 


3 9 ENCHAÎNONS, 


ENCHAÎNONS... 

Les ordinateurs de la 
gamme Commodore ne 
connaïssent pas la fonction 
CHAIN. Un moyen radical 
pour pallier cette absence. 


4 1 A L'ESSAI; 


LE BASIC DU HP-71 B 
Le dernier né des poquettes 
de Hewlett-Packard, malgré 
des dimensions très réduites, 
est doté d'un Basic 
étonnant. Il devrait faire le 
bonbeur des amateurs de 
maths et de stats, s'ils 
peuvent se l'offrir… 


AT à14 


DÉCOUVERTE DES 
LOGARITHMES 
Qu'est-ce qu'un log et 
comment le calcule-t-on ? 
Les quatre algorithmes 
présentés ici peuvent, bien 
entendu, être programmés. 
On les retrouve d'ailleurs 
parfois mis en œuvre dans le 
langage d'origine des 
ordinateurs. 


4 7 POUR QU'UN 56 PASCAL, 


BROGRAMME 

NE CHASSE PAS 
L'AUTRE 

Basic Applesoft : un procédé 
pour faire cohabiter en 
mémoire Vive un programnie 
de menu et les autres 
brogrammes qu'il va 
chercher sur la disquette. 


4 9 SI VOTRE 


PROCESSEUR 

EST UN Z80 

Le plus grand nombre 
premier connu est long de 
39 751 chiffres. Pour en 
retrouver la valeur exacte, 
quatre heures suffisent. La 
routine en langage-machine 
occupe 98 petits octets et 
permet par ailleurs 
d'explorer les nombres de 
Mersenne. 


FILTREZ 

LES ENTRÉES... 

Une erreur dans la saisie 
d'un nombre, et le 
programme déraille. Pour 
éviter cela, suivons la bonne 
procédure. 


61 QUE LE 


GRAND CRIC 

ME CROQUE ! 
HP-41C : suite de 
l'initiation à la 
programmation synthétique. 


D) 2 TROIS LOGICIELS A LA LOUPE 


ORIC, BASIC ETENDU 


Une cassette qui, pour un prix modeste, dope l'Oric-1 et 
l’'Afmos. Les améliorations concernent principalement les 


graphismes. 


ARROW 64 POUR COMMODORE 64 

La cartouche contient un éditeur-assembleur asser 
performant et simple d'emploi. Les débutants regretteront 
tout de même la minceur de la notice d'emploi. 


PC-UTIL 2 POUR PC-1500 
Selon les modèles du poquette, 16 ou 19 fonctions 
supplémentaires dont une bonne partie intéresse l'aide à la 


programmation. 
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SOMMAIRE 


| | 68 UN 


CATALOGUE 
AMÉLIORE 

POUR LE SPECTRUM 
Chaque cartouche des 

« microdrives » contient 
davantage d'informations 
qu'elle n'en délivre 
normalement. Comment aller 
les repécher ? 


73 PC-1500 : FAIRE 


FACE AUX FRREURS 
Dans certains cas, on peut 
brévoir qu'un programme 
conduira normalement à des 
messages d'erreur. On doit 
alors faire en sorte que 
l'exécution n'en soit pas 
interrompue. 


Overte de ce langage 
original. Ce mois-ci, nous 
nous intéressons plus 
spécialement à la boucle 


DO... LOOP. 


6 7 THOMSON MO: 


AU BOUT DU CRAYON 


EHIS cours ef fravaux 
dirigés sur ce langage dont 


7 9 SI VOTRE 


PROCESSEUR EST 
UN 6502 

Oric, Atmos, Apple... 
Faites au moins une fois 
l'expérience du langage- 
machine. Qui sait si, à 
votre tour, vous ne 
deviendrez pas un mordu 
de cette forme de 
programmation ? 


2 PB-700 : 


LES ÉCRITS RESTENT 
Quand l'affichage fait 
plaisir à voir, on aimerait 
souvent en garder une trace. 
Deux utilitaires de recopie 
d'écran. 


9 Î LA BOÎTE 


A MALICES 
Prenez un programme et 
retirex-en les astuces, toutes 


numéro, des ficelles pour 
TO 7, TI-66, TI-99/4A, 
: PB-100, CBM 4000 et 
8000, VIC, C.64, 
HP-41C... 


96 MISEZ P'TTT, 


OPTIMISEZ 

Grignotons les octets et les 
fractions de seconde 
(HP-41C) Un nouveau 
défi et les résultats du 
brécédent : onze vainqueurs 
ex aequo | 


7 li di € 
K Ms 


cex votre logique et 
votre ingéniosité pour 
résoudre quelques petits 
problèmes simples en 
apparence. : 


les astuces, des plus grossières | Ce numéro contient en encart 


Créez, en un clin d'œil, vos 
propres caractères graphiques. 
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TE 


les possibilités sont trop 
souvent méconnues. 


Illustrations : Philippe Burel, Philippe Delacroix, Fra- 
par, Manuel Gracia, Bernard Helme, Fabien Lacçaf, 
Alain Mangin, Alain Mirial, Alain Prigent, Jean-Marc 
Rubio, Nicolas Spinga. 
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aux plus subtiles. Que reste- 
t-il ? Rien. Dans ce 


des bulletins d'abonnement 
paginés 19, 20, 85 et 86. 


LIST est une publication du = 
BAS 


5 place du Colonel Fabien - 75491 Paris Cédex 10 
Téléphone : (1) 240 22 01 - Télex : LORDI 215 105 F 


La loi du 11 mers 1957 n'autorisant, aux termes des alinéas 2 et 3 de 
l'Art. 41, d'une part que «les copies ou reproductions strictement résar- 
vées à l'usage privé du copiste et non destinées à une utilisation collec- 
tive », et, d'autre part, que les analyses et les courtes citations dans un but 
d'exemples et d'illustrations, « toute représentation ou reproduction inté- 
grale, ou partielle, faite sans le consentement de l'auteur ou de ses ayants- 
droit ou ayant-cause est ilicite » (alinéa 1° de l'Art. 40). Cette représenta. 
tion ou reproduction, par quelque procédé que ce soit, constituerait donc 
une contre-façon sanctionnée par les Art. 425 et suivants du Code Pénal. 


Notre publication contrôle les publicités commer- 
ciales avant insertion paur qu'elles soient parfai- 
tement loyales. Elle suit les recommandations du 
Bureau de Vérification de la Publicité. Si, malgré 
ces précautions, vous aviez une remarque à faire, 
vous nous rendriez service en écrivant au BVP, 
BP 4508, 75362 PARIS CEDEX 08. 
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INCLAIR s'impose par la passion 

des Sinclairistes. Ils sont 2 mil- 
lions dans le monde à avoir découvert 
Sinclair. Les revues et les nombreux 
clubs en sont l'écho. 


Fiche technique du ZX SPECTRUM 


Unité centrale 

Microprocesseur Z 80 À, 3,25 MHz. 

RAM 16 K ou 48 K. 

ROM 16 K. 

Clavier 

40 touches avec répétition automatique et 


témoin sonore. Système d'entrée de toutes 
les fonctions par mots-clefs. 


Affichage 

31 x 24 caractères, majuscules ou minuscu- 
les. Haute définition graphique 256 x 192 
(49152 points adressables individuellement). 
Générateur de caractères 

ASCII étendu (matrice 8 x 8). 21 caractères 
programmables. Possibilité de redéfinition 
de l’ensemble des caractères. 

Couleurs et sons 


8 couleurs. Haut-parleur intégré 130 demni- 
tons (10 octaves). Amplification par prise 
micro. 


Langages 
Basic intégré, Pascal, Assembleur et Forth 
en option. 


Interface magnétophone 

Vitesse de transmission : 1500 bauds. Sau- 
vegarde de pages mémoire et tableaux 
séparés. Fonctions VERIFY et MERGE. 
Ecran 

Raccordement sur prise antenne pour 
récepteur PAL ou prise PERITEL pour 
récepteur SECAM. 


Nous sommes à votre disposition pour 
toute information au 359.72.50. 

Magasins d'exposition-vente : 

Paris - 11 rue Lincoln 75008 (M° George V) 
Lyon - 10 quai Tilsitt 69002 (M° Bellecour) 
Marseille - 5 rue St-Saëns 13001 (M° Vieux- 
Port). 
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Sinclair s'impose. ‘:: 


Sinclair s'impose par la richesse 
unique de sa gamme de logiciels et de 
par sa bibliographie incomparable. 

Sinclair s'impose par sa capa- 
cité d'innovation et son souci de la 


perfection, à des prix abordables par 
tous. 

Les 3 nouveaux périphériques 
du ZX SPECTRUM en sont la preuve. 
Découvrez-les d'urgence. 


Le Microdrive ZX 

Une prouesse technologique 
dans le domaine de la mémoire. Cha- 
que microdrive utilise des bandes 
sans fin interchangeables, d'une 
capacité de 85 K octets. L'accès à la 
mémoire s'effectue en un temps 
record. Ainsi, un programme de 48 K 
octets se charge en 9 secondes. 8 mi- 
crodrives peuvent être connectés au 
SPECTRUM, qui dispose alors d’une 
capacité de 680 K octets en ligne. 
C'est incomparable. 


L'Interface ZX 1 

Une extension qui transforme 
votre micro en géant. Elle permet, 
outre le raccordement des micro- 
drives, de gérer des fichiers et de 
brancher des imprimantes de format 
courant. De plus, elle autorise l'éta- 
blissement d'un réseau de communi- 
cation à vitesse élevée, pouvant 
regrouper 64 SPECTRUM. Et toujours 
à un prix Sinclair. 


L’Interface ZX 2 

Avec elle, le plaisir est total. Elle 
lit instantanément les nouvelles car- 
touches ROM de jeu et permet le 
branchement simultané de 2 manet- 
tes de jeu. 

Ce nouveau périphérique peut 
se brancher directement surle micro- 
ordinateur ou sur l'interface ZX 1. 


Le ZX SPECTRUM constitue 
alors un incomparable système infor- 
matique. Sinclair s'impose. 


Sinclair 


la micro-ordination 


Bon de commande au verso. 


ne 
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ZX Spectrum. Un incomparable système informatique. 


ZX Spectrum 


Interface ZX 1 
Le ZX Spectrum 


et ses périphériques 
Micro-ordinateur ZX Spectrum 
11965 F x. 


48 K RAM PAL... 
Coffret 8 logiciels 


_600Fx  |Ss11l 


Promotion Automne 84 


Spectrum PAL 
+ coffret 
(offre valable jusqu'au 


Adaptateur Péritel. 


1965Fx|  [SS10 
30.09.84) 


860Fx| 


_ CSo5| 


(ER 


Interface ZX 1 
Câble RS 232... 


895Fx] |SS05 
235Fx ÏSS 06 


Imprimante Alphacom 32 
1190F x 


Microdrive ZX 

940Fx] [SS07] 
Boîte de 4 microdis- 
quettes vierges 
316Fx 


SS 09 


Boîte de 5 rouleaux de papier 


150Fx | PO2 
Modulateur noir et blanc 
190Fx [CS 04 


Bon de commande 


À retourner à Direco International - 30, avenue de Messine - 75008 Paris. 


Microdrive 
(série de 8 possible) 


Connexion 
câble RS 232 


Connexion 
réseau spectrum 


interface ZX 2 


Manette de jeux Quickshot 
140F x C 15 


interface ZX 2 


851Fx SS 10 


Les logiciels-cartouches 


Pssst! | 185Fx [RS 01 
É Jet Pac | 185Fx ÏRS 02 
Cookie | 185Fx | RS 03 | 
TanS AM sise [185Fx[ RS 04 
Space Raiders 185Fx RS 05 
Planetoids.….....… [185Fx]  [RSO6! 
Hungry Horace... 185F x TRS 07 
Echecs... 185F x [RS 09] 
Backgammon 185F x RS 10 
Les logiciels-cassettes 
JEUX DE RÉFLEXION 
Cobalt (simul. de vol)|_ 95Fx | JS 01 
ECRÈCS ne. 115Fx | JS 15! 
Othello.…..........… 75Fx| JS 02! 
140Fx|]  [JS16] 


| mine 
| ZX Spectrum 


à 


«À manager 
AS: Y 


Devpac (Ass/Desass) 


susno sauve D 


JEUX D'ARCADES 
Jumping Jack 


Alchemist ............. 
Mined-Out...........…. 
Androïdes..….........…. 


GESTION 
Direction financière. | 120 Fx GS 01 
Gestion de fichier. | 115Fx TGs 02 


QE l à eu 
| DIRECTION 
FINANCIÈRE SE 


TOTAL: 


Indiquez dans chaque case la quantité com- 
mandée. Effectuezle calcul dutotaletinscri- 
vez le résultat dans la case TOTAL. 


Votre commande vous sera adressée sous 


3 semaines. = 


Je paie par : chèque bancaire 


établi à l'ordre de Direco International, joint 
au présent bon de commande. 
(aucun chèque n’est encaissé avant l'expé- 


dition du matériel). 


contre-remboursement* 


* Contre-remboursement taxe PTT (14,20 F) pour toute 
commande de moins de 2000 F. Au-delà, barème Sernam. 


Nom 


Prénom 


Adresse 


Code postal L_1_ 1 !_|_|Tél.: 


Signature (pour les moins de 18 ans, 
signature de l’un des parents): 


LLS A 


Au cas où je ne serais pas entièrement satis- 
fait, je suis libre de vous retourner le matériel 
dans les 15 jours. Vous me rembourserez 
alors entièrement. 


Sinclair 
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Pour votre ordinateur, Boîtes à outils MégaO Poche. 


Mine de rien, 
une mime d'idées. 


ne SD D eo ne D DE D D D D D D D D ne 


.35FF 
e : 
e volume aire a aue- 
votre ie informats 
o 


Ê 


La collection MégaO Poche met à votre disposition des petits programmes tout prêts qui 
vous permettront de résoudre les nombreux problèmes de la vie quotidienne, de simplifier votre 
comptabilité, votre tableau de bord, la tenue de vos fichiers etc... 


EE RME TE 


Actuellement 14 titres : Boîte à outils pour ORIC - Tome 1 
Boîte à outils pour PC 1500 Boîte à outils pour ORIC - Tome 2 
Boîte à outils pour FX 702 P Boîte à outils pour Commodore 64 
Boîte à outils pour Sinclair Boîte à outils pour T1-99/4A 
M D Boîte à outils pour PC 1251 Micro gestionnaire pour Sinclair 
ega Boîte à outils pour PB 100 et FX 802 P, Micro compta pour Sinclair 
TRS-80 PC-4 Boîte à outils Micro-Stats rouven | 


Boîte à outils pour le navigateur de plaisance Boîte à outils pour Micro-Manager 


La collection MégaO Poche est diffusée par : P.S.I. DIFFUSION 
POCHE _ 8.p.86 77402 Lagny-sur-Marne Cédex Tél. : (6) 006.44.35 Télex : PSIDIF 600 978 F 


| 
où Farc ta ec mas | (D | DÉSIGNATION NOMBRE | PRIX 
FF 2orBv220rs | 1 L__—— F= _ 


par avion ajouter 8 FF (75 FB) par livre | TOTAL 
pour la Suisse, ajouter 1,50 FS pour tous les ouvrages F SE 


RER PRES ES 


Envoyez ce bon accompagné de votre règlement à : 
FRANCE : P.S.I. diffusion - BP 86 


Signature obligatoire pour paiement 
par carte de crédit 


77402 Logny-s/Marne Cédex - Tél. : (6) 006.44.35 Paiement par chèque joint |. Paiement en FF par carte bleue VISA (à P.S.. DIFFUSION uniquement paiement supérieur à 50 FF) 


BELGIQUE, LUXEMBOURG : P.S.I. Benelux 


5, avenue de la Ferme Rose 1180 Bruxelles N° ect Eu Je db AA 
Tél. : (2) 345.08.50 

SUISSE : P.S.I. Suisse - Case postale - Route neuve 1 NOM 

1701 Fribourg (Suisse) - Tél. : (037) 23.18.28 - CCP 17 56 84 

CANADA : S.C.E. Inc - 65, avenue Hillside Montréal RUE 


(Westmount) - Québec H3Z1W1 - Tél. (514) 935,13.14 
MAROC : SMER Diffusion - 3, rue Ghazza - Rabat - Tél. (7) 237.25 CODE POSTAL 


SE Date d'expiration L_ | 11] 
PRÉNOM _ 


VILLE 


in da a ee 


Envoyez ce bon accompag se votre réglement à : 
1: FRANCE : PSI: diffusion - BP 86. ‘ : 
‘177402 Lagny-s/Marmne Cédex : Tél: ;: 


BELGIQUE, tpenonse PS 
je dè lo 1180 


David Lévy 


Reg DE 


> para D bibl 


Xavier de La Tullaye 


INVENTIVE 


Jean-Claude Barbance 


COMMENT 


PROGRAMMER 


TROIS EXEMPLES 


PROGRAMMATION 


AVENUE ie 
par Xavier de la rave 
160 pages - - 95,00 


Voici une analyse du processus du Fa. 
sonnemént logique qui conduit & la pro- 
gta. en procédonf par ana- 
es elen s'appuyant Suf des exem " : 
és simples {programme d'une jour: 
: née; construction d'une étagère), lou. 
teur iniflé au maniement des outik. de - 
Le -prograinmation : l'ordinateur: li 
: même, l'algorithme, l’organigramme, : : 
l'écriture du programme. Ale fn du: 
livre il ne reste plus ou lecteur qu' taire” 
ne fe 
: programmes. : se 


COMMENT. PROGRAMMER A 
mue ra De 
fois ex pour une métho Re 
:… por Jean-Claude Barbanéel 
4 216 pages - 100, dure 
à Jean-Claude Borbance s'adresse ici à de 
ceux qui connaissent déjà le Basic et RE en 
: * désirent ahorder les pnncipes fonda") 
.. menfoux dé la rélisaion des program. 
mes : définition d'objechifs ahalyse 
; confection des orgarigrammes el mise Na 
‘ab point, Les frois exemples railés.dans 2; | 
ce hvre sont écrits ên Basic slandardet 
le lecteur pourra. aisément adopter les: 
Programmes. à son ordinateur, Cet 
OUvrd dé ui 
complète, REA 


DÉSIONANON | 


D mie Bt D Al D EE EE Re EE ES 


gouris Suisse 7 Lars PO les Ouvrages 


(3 Pénren par dé jpé Fé 1 TEA en FF par Carte bleue VISA 


PAPA 


Signature obligatoire pour paiement | 


TOTAL | 


ER Moro, Li bre 
à P.$1. DIFFUSION La ren paiement sueur à 0) LE 


Date d' expiration. 


le magazine de votre 


SINCL 


SPECTRUM 


Si vous utilisez 
un ordinateur 
: 2 Le SINCLAIR 
Same sente a ce (ZX 81*, ZX 80* ou Spectrum*) ou 
Des Si VOUS comptez en acheter un, sachez 
7 que la revue ORDI-5 a été créée pour 
} vous. Indépendante de tout constructeur ou importateur, 

_ Tr ORDI-5 vous fournit quatre fois par an des programmes, 
| Le des conseils, des astuces, de nouvelles idées d'utilisation. 

ORDI-S teste pour vous en toute objectivité et indépendance les produits matériels 
et logiciels adaptables sur votre SINCLAIR. ORDI-5 vous tient au courant 

de toutes les nouveautés susceptibles de vous intéresser. 

Commandez un numéro ou... abonnez-vous, vous économiserez 20%. | 


. ORDI-5, pour tirer bien plus de votre SINCLAIR 


R BON DE COMMANDE 
à retourner à ORDI-5, 8 rue Saint-Marc 75002 PARIS 


> 


=. 


Nom ____ u 
Adresse —_—_ 2 . ___ _ 
Pays _ —— _—. _____ Code postal ______ Ville 
Je désire recevoir les 4 derniers numéros parus et m'abonner pour recevoir les 4 prochains numéros. 
(France 160 FF; Etranger** 180 FF; par avion 320 FF). 
Q Je désire recevoir les numéros antérieurs suivants : __ 
(prix d'un n° 25 FF; Etranger** 30 FF; par avion 40 FF). 
O Je désire m'abonner à ORDI-5 pour 1 an, 4 n°“ à partir du n° _ _ = È - 
(tarif France 80 FF; Etranger** 90 FF: par avion 160 FF). (Actuellement ORDI-5 est trimestriel). 


Ci-joint mon règlement indispensable par chèque bancaire [l chèque postal [| virement [ 


**Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les frais de virement sont à la charge de l'acheteur. 


Brains-Navarre 


CASIO PB 100 


LE BASIC PAS SORCIER 


PB 100: UN ORDINATEUR DE POCHE ET LA METHODE 
VIVANTE POUR DIALOGUER AVEC LUI. “Apprenez par la Prati- 


que”, enfin une méthode simple pour s'initier à la programmation ! Avec des exem- 
ples amusants, des exercices faciles et même des jeux... Progressivement, en vous 
servant de votre ordinateur personnel PB 100 (800 octets), les instructions prépro- 
grammées en Basic, le clavier ASCCI avec114 caractères différents, le traitement de 
chaînes de caractères, les boucles, les sauts, les tests, etc. n'ont plus de secret pour 
vous. Vous avez tellement fait de progrès que vous y ajoutez un module RAM qui 
porte la capacité de mémoire à 1800 octets, une imprimante et un interface pour 
stocker vos programmes sur un magnétophone à cassettes. Et puis, vous serez 
membre du Club Casio qui est là pour vous aider. En vente dans les papeteries et 


magasins spécialisés. Distributeur exclusif: 
Ets Noblet Paris. £ : A ee. Ë OO 


CA COMRTE 


Série « Système 
d'Exploitation » 
en 


Le système MemDos 

par Pierre Clerc - 104 pages - 90,00 FF 

Quel que soit le langage de programmation habituei de l'uti- 
lisateur, la connaissance de MemDos lu permettra une 
réflexion fêconde sur iés caractéristiques ptimales d'un 
systéme d'exploitation. MémDos se superpose au Basic habi 
tuel des Apple Il et IH, CBM, ITT 2020. et bientôt IBM 
PC. Utilisé pour le développement d'application de gestion, 
il permet d'adopter une structure ngoureuse tout en béné 
ficiant des commodités d'un Basic interprété 


————""" 00m 


Série « Productique » 
PRE P CSS PERS 


Systèmes industriels d'intelligence 
artificielle 


par Lucas Pun - 304 pages - 130,00 FF 

Les ingénieurs, industriels, automaticiens et informaticiens 
qui ont à concevoir et à réaliser de plus en plus de « Systé 
mes Industriels d'intelligence Artifici » (SIA) dans le cadre 
de la productique, trouveront dans cet ouvrage à vocation 
pédagogique les réponses à des questions t que : Que 
sont les SIA ? Comment en faire l'analyse et la synthèse ? 
Où et quand. les appliquer ! Etc. 


Introduction à la robotique 


Enseignement, recherche, développement 

par Pierre Lopez et Jean-Numa Foulc 

310 pages - 170,00 FF - Vient de paraître 

Elève de terminaie ou élève ingénieur, chercheur, technr- 
cien où ingénieur, le lecteur, motivé par la robetique et dési 


TT ———————-->L- 


Envoyer ce bon accompagné de votre règlement 
à P.S.I. DIFFUSION où pour la Belgique 


et le Luxembourg à P,S.I. BENELUX et pour la Suisse 
à P.S.I. SUISSE (voir table de conversions ci-contre). 


P.S.I. DIFFUSION - BP 86 


77402 Lagny-s/Marne Cedex - FRANCE - Tél. : (6) 006.44.35 


P.S.I. BENELUX - 5, avenue de la Ferme-Rose 
1180 Bruxelles - BELGIQUE - Tél. : (2) 345.08.50 


P.S.I. SUISSE - Case Postale - Route Neuve 
1701 Fribourg - SUISSE 
Tél: (037) 23.18.28 - C.C.P. 17-5684 


au Canada : SCE Inc. 
65, avenue Hillside Montréal 


BO FF » 


(P.S.I. au SICOB 84 : C.N.IT. - 


Table d« conversions 
en Francs belges et Francs suisses 


610 F8 - 25.30 FS 


9OFF 695 FR - 28.40 FS 


reux de contrinuer à la diffusion des robots dans les divers 
secteurs de la productique. trouver rt 
de « l'introduction à la robotique » la formation ase 
indispensab'e à la fabrication et à là maintenance de ces 
Systèmes Artficiels ayant une action intelligence sur l'envi- 
ronsement et appelés plis communément « robots » 


oo 


Série « Informatique » 
EE 


Opérations arithmétiques 
dans les ordinateurs 


par loan Dancéa 
176 pages - 100,00 FF - Vient de paraître 
Les concepteurs d ordinateurs ont besoin de matériels de 
pl plus rapides pour effectuer les quatre opérations 
arithr ddivon, soustraction, multiplication et divi 
es performances de leurs systèmes. Cet 
eur donne les différentes méthodes possibies 
accompagnées de réalisations matérielles et illustrées de 
nombreux exemples, Sont par exemple abordés les diffé 
rents schémas d'additionneurs et de soustracteurs, l'addr- 
ion et ia soustraction des nombres binaires signés. lls per- 
mettront aë lecteur d'approfondir ses connaissances des 
mécarismes de fonctionnement d'ur ordinateur 


sion} et augmente 


ouvrage 


Série « Communication » 


Les techniques de la télématique 


par Jérôme Toussaint et Philippe Masson 
120 pages - 90,00 FF 


Le but de cet ouvrage est de présenter l'ensemble des tech 


Sicob Boutique - stand n° 30) 


line s adresse pas aux seuls spécialistes des télécommuni 
cations ou de l'informatique, mais à tous ceux qui veulent 
S informer des évolutions à venir. Parmi les sujets traités, 
on trouvera entre autres le terminal Minitel et ses applica- 
tions. le traitement de textes et la bureautique, la téléco- 
p'e. la numérisation du téléphone et des réseaux publics de 
tétécommunications. 


et toujours... 


+ Série « Système d'exploitation » 
. Le système Unix - 100,00 FF 
Le système CP/M pour Z-80 - 100,00 FF 
. Le système CP/M pour 8080 - 110.00 FF 
Le système Pascal UCSD tome | - 90,00 FF 
. Le système Pascal UCSD tome 2 - 100,00 FF 
. Le concept Forth - 110,00 FF 


+ Série « Langage de communication » 


. Le langage C - 90,00 FF 

- Le langage APL - 90,00 FF 

. Le langage ADA - 90,00 FF 

. Le langage Fortran - 80,00 FF 


+ Série « Communication » 
. Les réseaux locaux d'entreprise - 110,00 FF 


+ Série « Dialogue Homme-machine » 
. Synthèse, reconnaissance de la parole - 130,00 FF 


+ Série « Electronique numérique » 


Choisir un système de développement pour 
microprocesseurs - 80,00 FF 
Les systèmes à microprocesseurs - 90,00 FF 
. Microprocesseurs et circuits associés - 100,00 FF 
. Les circuits programmables - 110,00 FF 
. Mise en œuvre du BUS IFEE 488 - 90,00 FF 


| DÉSIGNATION NOMBRE | PRIX 
een _ : = "3 
= ÉRRRRRS  __— _— — a Fr: 

bar avion ajouter 8 FF (75 FB) par livre TOTAL 

Pour la Suisse, frais de port pour tous les livres : 1,50 FS x 

Nom __ . _ = _— Prénom _ 

Adresse. 5 _ a IN? 

Code postal LL ! |} Ville _.  — . ss ss £ 


(Westmount) Québec H 32 1 WI] 
Tél. : (514) 935.13.14 


au Maroc : SMER DIFFUSION 
3, rue Ghazza - Rabat 
: Tél. : (7) 237.25 


1o0FF = 770FB- 31.50 FS 
LIOFF = 850 FB- 34,60 FS 
1DOFF = 925FB-3760FS 


130 FF = 1000 FB : 40.60 FS 


LJ Je désire recevoir le catalogue EDITESTS gratuit 


Paiement par chèque joint 


CT Paiement en FF bar carte bleue VISA (à P.S.I. DIFFUSION uniquement) 
N° iii il {14 | 11) Date d'expiration L 1 | 1: 


170 FF = 1310 FB- 52,60 FS 


Signoture (obligatoire pour paiement par carte de crédit) > 


DEUX MOIS, 
C'EST LONG... 


ÉLICITATIONS pour 
votre nouveau journal, 
mais sur la couverture, j’ai lu 
« juillet-août ». LIST serait-il 
donc bimestriel ? Et si oui, 
envisagez-vous de le rendre 
mensuel ? 
Eric HANUISE 
Soignies Belgique 


M LIST ne paraîtra pas tous 
les deux mois, mais à raison de 
dix numéros par an, comme 
c'était le cas de l'Op. Deux 
numéros doubles donc, juillet- 
août et janvier-février, pour 
nous permettre de souffler et 
de prendre un peu de recul. 


J'INVESTIGUE 


ONJOUR à l’équipe de la 
rédaction, 

Puisque l’Ordinateur de 
poche s’est déguisé en LIST 
(on a du mal à le reconnaître), 
une petite comparaison 
s’impose entre le premier LIST 
et le dernier Op. 

Format de la revue : identi- 
que à deux ou trois millimètres 
près, je crois. Epaisseur : 70 
pages pour /’Op (60 seulement 
pour le n°22), et 100 pages 
pour LIST. On remarque par 
ailleurs une augmentation de la 
place consacrée à la publicité. 

L'information générale 
occupe elle aussi une place plus 
importante (ça, c’est bon pour 
la culture informatique des lec- 
teurs). Enfin, la revue consacre 
presque deux fois plus de place 
aux ordinateurs de table 
qu’aux ordinateurs de poche 
(Help !) malgré la bénéfique 
augmentation du nombre de 
pages. 

Un lecteur 
investigateur 


(pour la rime) 


P.S. Pourrait-on avoir des 
essais de logiciels pour ordina- 
teurs de poche (ce sont les 
essais de logiciels d’aide à la 
programmation pour ordina- 
teurs de table qui ont fait ger- 
mer l’idée) ? Un gros merci 
d’avance. 


B Oui, c'est juste, LIST n’est 
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pas la réplique exacte de V'Op. 
Mais avec cette nouvelle for- 
mule, il nous paraît, quant à 
nous, que les utilisateurs de 
matériels de poche ne 
devraient pas perdre au change 
concernant tout ce qui touche 
à la programmation. 

A propos des essais de logi- 
ciels pour OP, nous comptons 
en publier. Vous trouverez 
d’ailleurs dans ce numéro, 
page 56, notre coup d'œil sur 
PC-UTIL 2 pour Sharp PC- 
1500. 


FAITES 
CIRCULER... 


SALUT les LISTeurs, 

E groupe TESTS a encore 

frappé. Après /’Ordina- 
teur Individuel, l’Op, voici 
LIST. Dans le kiosque, ce titre 
m'a fait sursauter. Ce nom a 
évoqué en moi des dizaines de 
pages de programmes. Je suis 
un tapeur fou ! J’adore taper 
sur mon TRS 80. 

Lorsque j'ai ouvert votre 
magazine, j’ai eu plusieurs 
bonnes surprises. La première 
c’est qu'il n’y a pas trop de 
pub. Un peu ça va, mais 
trop... Deuxième bonne sur- 
prise, il y avait des program- 
mes pour mon TRS. Bien que 
Tandy ne fabrique plus le 


VOS CLAVIERS 


modèle 1, il est sûr que celui-ci 
a encore de très beaux jours 
devant lui. 

La troisième bonne surprise 
est que vous parlez de l’assem- 
bleur. C’est un langage très 
complet qui permet un dialo- 
gue direct avec son ordinateur 
favori. Pour le TRS, j’ai quel- 
ques idées en tête, et si les lec- 
teurs de LIST peuvent écrire 
des articles, ou quelque chose 
qui y ressemble, j'aimerais 
bien savoir s’il est possible de 
les faire sortir chez vous. 


Fabrice Glibert 
Paris 19° 


ANS notre club, nous 
aimerions savoir si vous 
envisagez de plublier des arti- 
cles concernant le DAÏI, notre 
ordinateur de prédilection ? En 
attendant votre réponse, je 
vous adresse mes sincères salu- 
tations. 
Daniel MOULES 
63 Saint-Germain Lembon 


INDEX DES ANNONCEURS 


Cassettes Le Témoignage 
Duriez 


Goal Computer 


Librairie Informatique d’ Aujourd’hui 


L'Ordinateur Personnel 
L'Ordinateur de poche 
Loriciels 


Technology Resources 
Vectron - Exelvision 
Vidéo Technologie 


5 place du Colonel Fabien 


Écrivez à LIST 


75491 Paris Cedex 10 


M Bien entendu, le DAI n'est 
pas exclu : tout ce qui touche à 


la programmation intéresse 
notre journal. Et nous répé- 
tons ce que nous écrivions 
dans notre premier numéro : 
chez nos lecteurs, combien de 
trouvailles dorment dans des 
tiroirs ? Faites circuler, faites 
circuler vos idées. 

Langage-machine, assem- 
bleurs, Pascal, Logo, Forth, 
Basic, notation polonaise 
inverse ou algébrique, etc., 
trouvailles d'intérêt général ou 
destinées à un matériel particu- 
lier, algorithmes originaux, 
n'hésitez pas à nous écrire : 
critiques, suggestions, proposi- 
tions d’articles… 


AI reçu LIST avant-hier et 

j'avoue être agréablement 
surpris, sauf peut-être pour la 
présentation un peu triste. J’ai 
tout d’abord été heureux de 
consater que les ordinateurs de 
poche avaient gardé une place 
de choix. Le nombre de sujets 
traités a considérablement 
augmenté pourtant ! 

J'ai particulièrement appré- 
cié la variété des langages 
abordés (Forth m’a spéciale- 
ment intéressé). Bien que pro- 
grammant depuis deux ans, 
j'ai beaucoup appris dans le 
premier numéro de LIST. 

Un petit renseignement 
maintenant, s’il vous plaît : 
quelle est l’adresse de DDI qui 
assure la diffusion des cassettes 
Logi’stick ? 

Bruno DES AUN AY 
14 Condé sur Noïreau 


M Voici l'adresse que vous 
recherchez : 

DDI 

Centre d’Affaires Paris-Nord 
« Le Bonaparte » 

93153 Le Blanc Mesnil 
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CETTE 
SATANÉE 
MACHINE 


H bien, oui, je le dis : je 
programme parce que je 
suis idiot ! Parce qu’un jour 
j'ai vu des gamins tapoter sur 
des claviers et faire apparaître 
sur l’écran des tas de choses. 
Furtivement, j’ai essayé d’en 
faire autant, et l’écran m'a 
retourné ‘‘ERROR’’. C’est par 
dépit, peut-être, que j’ai décidé 
alors de tout faire pour être en 
mesure, un jour, d’épater ces 
gamins, ou leurs frères cadets. 
Depuis ce jour-là, je bosse 
comme un dingue. Plus de 
pêche à la truite, plus d’astro- 
nomie, plus de polars, je mar- 
tèle mon clavier. Et à chaque 
fois que je progresse, que je 
pense tenir le bon bout, à cha- 
que fois que je m’enfonce dans 
le duvet de la satisfaction, 
cette satanée machine m’envoie 
un message d’erreur en pleine 
figure ! Alors je sursaute, je 
jure, et le corps-à-corps avec 
mon ennemi préféré reprend. 
Mais un jour, je l’aurai ! Un 
jour, je le dominerai, il pliera, 
il fera exactement ce que je 
veux. Alors ce jour-là, Ô ce 
jour-là, je pourrai. 
Quelques secondes de 
patience : mon imprimante 
crépite, les résultats de mon 
dernier programme tombent. 
et vlan ! ERROR évidemment, 
nomdinpetibonome ! 


Christian MILDNER 


OÙ COURS-JE ? 


PS rammeur rue 
OURQUOI suis-je dans dE réponses possibles ! En voici 


l'esprit une bonne cent 

quelques-unes. 
Parce que, 

pline ne doit pas être 
Ou bien parce que, profes 
dans mon travail de cet ou 
et que, tant qu’à faire, 
cation soi-même. 


Pour le plaisir aussi de se dépasser 


ion littéraire, - 
“ Eh dan à l'impérialisme des maths. 


eur de sciences humaines, j'ai besoin 
til fantastique qu’est Pinformatique, 
mieux vaut cCOnCevoI 


POURQUOI DIABLE 


PROGKRAMMEZ- VOUS 2 


P OURQUOI pianoter des heures 
durant (la nuit parfois) sur 


le clavier d'une machine ? Vous lirex ici cing réponses 
a ceïte question. Maïs peut-être aimex-vous la 
programmation pour d'autres raisons. Dans ce cas, si 
cela vous dit, écrivex à LIST. Essayez d'expliquer à 
votre tour « pourquoi diable programmez-vous ? » 
Quel démon vous a saisi ? 


PEUÉ. 
MIEUX 
FAIRE 


À vitesse à laquelle les 

ordinateurs (même 
‘““lents””) effectuent les calculs 
est prodigieuse. Je ne m’en 
suis jamais lassée. Ce sont 
principalement les nombres 
premiers que je passe dans ma 
moulinette informatique. Et 
peu importe que mes petites 
recherches demeurent inutiles. 
Ce qui me plaît, au fond, c’est 
d'obtenir en quelques jours 
— et grâce à la machine — des 
résultats qui m'’auraient 
demandé plusieurs siècles de 
calcul à la main. 

La programmation me 
paraît présenter une autre 
caractéristique peu commune : 
distiller l’intelligence. Sans être 
une lumière, petit à petit, en 


9 J1 me vient à 


j'estime que cette disci- 


r son logiciel d’édu- 


en se posant uñ problème 
er de la difficulté. Je ne 


Fe k h 
iqué, et pour la joie de triomp É os 
nn nu an après quoi je COUTS dans la vie, mails j 


que j'y cours très vite, et je 
que je cesserai de courir : 
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sais surtout ce qui me ratirapera dès 


Alain MARIATTE 


DOMPTER LA MACHINE 


VANT tout, la programmation ést une détente pour moi. 
Elle permet de concrétiser une idée que l’on a eue sur un 
Sujet ou sur un autre. 

Mais c’est aussi une école de patience où chacun peut tester et 
améliorer son niveau d’ingéniosité. Souvent, on doit lutter contre 
la machine logique qui se défend à coup de ‘“SYNTAX 
ERROR’’, mais quel plaisir quand on l’a enfin maîtrisée et 
qu'elle obéit docilement.… Car la récompense finale reste d’avoir 


créé un programme qui ‘‘marche bien’’. 


retouchant un programme, en 
l’améliorant, en le remettant 
cent fois sur le métier, on 
obtient un produit qui tourne 
de mieux en mieux. 

À chaque retouche, on 
ajoute quelques astuces. Pro- 
gressivement, le programme 
devient de plus en plus malin, 
de plus en plus habile. Au 
bout du compte, on finit par 
en tirer quelque fierté. Et l’on 
a toute la vie devant soi pour 
faire encore mieux. 


Paulette BESNARD 


LA CHASSE 
AÀ LA BOGUE 


E qui me passionne dans 

la pratique de l’informati- 
que, c’est de pouvoir analyser 
un problème, de me plonger 
dans un monde d’abstraction 
où seules valent la réflexion et 
la concentration. 

Il y a toujours mille maniè- 
res d’aborder un problème. 
Rechercher une solution meil- 
leure que celle à laquelle 


Yvon PÉRÈES 


j'avais songé, la peaufiner, la 
rendre aussi parfaite que je le 
peux, voilà ce qui m’apporte 
les plus grandes satisfactions. 

Avec la méthode que j’appli- 
que, la phase de programma- 
tion proprement dite m'occupe 
peu de temps (elle a été précé- 
dée par une analyse précise). 
Malgré cela, elle m’apporte 
aussi des satisfactions. La pre- 
mière, bien entendu, est de 
voir que mon projet devient 
réalité. Mais il y a aussi le plai- 
sir de traquer, de dépister, de 
‘mettre la main” sur des 
erreurs. Vous savez, ces grains 
de sable qui détraquent une 
jolie mécanique et que, dans un 
programme, on appelle des 
bogues. Plus les bogues sont 
petites, plus elles sont difficiles 
à retrouver. 

La programmation en langa- 
ge-machine est un excellent ter- 
rain de chasse à la bogue. 
C’est même, à mon sens, un 
véritable sport. 


Thierry LÉVY-ABÉGNOLI 
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Fichiers en Basic 

par l'exemple 

Xavier Gaucherand 

et Jean-Pierre Lamoitier 
Editions Edimicro 
Paris, 1984 

Broché, 274 pages 

Prix : 148 FF 


S' vous avez ‘‘toujours voulu 
en savoir plus sur les fi- 
chiers sans jamais avoir osé le 
dernander””, ce livre peut vous 
aider. Accompagnés de beau- 
coup d’exemples, diagrammes 
et dessins, les trois premiers 
chapitres vous expliquent les 
principes de base de la gestion 
des fichiers. La table des 
matières permet d’utiliser cette 
première partie comme un 
ouvrage de référence, mais on 
regrettera l’absence d’un index 
alphabétique. 

La deuxième partie illustre 
cette théorie à travers cinq 
exemples complets (explica- 
tions, organigrammes et pro- 
grammes adaptés à l’IBM/ 
PC). Consacrer le chapitre sui- 
vant aux techniques de protec- 
tion des fichiers est une très 
bonne idée. Les problèmes de 
sécurité informatique sont en 
effet trop souvent passés sous 
silence dans les livres destinés 
au grand public. 

Les auteurs proposent en 
annexe un programme d'’en- 
cryptage d’un fichier séquen- 
tiel, avec commentaires. Une 
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deuxième annexe nous rappelle 
sous forme de tableau les com- 


. mandes, instructions et fonc- 


tions de gestion de fichiers 
sous MBASIC. Enfin, les com- 
pléments pour TRSDOS et 
PC/DOS font que cet ouvrage 
est utilisable sans peine par 
une bonne partie des program- 
meurs amateurs. 

JL 5 


LA GAZETTE DE LIST 


UN LIVRE 


L'Oric-1 et l’Atmos prennent la parole 


RIC FRANCE annonce la commercialisation d’un SyT 
tiseur vocal pour l’Oric-1 et l’Atmos. 
Malgré un:mode d'emploi en français, ce périphérique 


bavard conservera certainement. l'accent anglo-américain du 
marché pour lequel il a été initialement conçu. Et cela, même 
quand on lui demandera de réciter du Molière... 

Prix de vente : 450 FF ttc (+ 100 FF pour le cordon de rac- 


cordement). 


i de poche 
Un nouvel ordinateur 
chez Sharp : Île PpC-1350 


NCORE un nouvel ordi- 
nateur de poche Sharp ! 
Après les PC-12]1, 1212, 
1500, 1245, 1251, 1255, 1261, 
1401 (et j'en oublie sûrement), 
voici le PC-1350. La nou- 
veauté la plus apparente est 
Pafficheur à cristaux liqui- 
des : quatre lignes de 24 
caractères. C’est un gros atout 
face aux machines à une ou 
deux lignes. 
Le clavier comporte quel- 
ques touches supplémentaires 


par rapport aux précédents 
Sharp. C’est ainsi que les 
caractères souvent employés 
tels que la virgule, les paren- 
thèses, les deux-points, et sur- 
tout l'insertion INS et l’effa- 
cement DEL sont ici directe- 
ment accessibles (sans appui 
préalable sur SHIFT). 

Le nouveau PC a une 
mémoire vive disponible de 
3 070 octets. Cela peut sem- 
bler faible, mais il est possible 


de rajouter une carte mémoire 
de 8 Koctets {CE-201M) ou de 
16 Koctets (CE-202M). Nous 
disposions de la seconde, et 
donc de 19 454 octets. Une 
telle carte a un format ‘carte 
de crédit”. Elle est plate (3 


mm d'épaisseur), et dispose 
d’une pile intégrée : une fois 
la carte ôtée du 1350, elle con- 
serve le programme que vous 
y aviez entré. 


Le Basic est semblable à 
celui du 1261 et est exacte- 
ment aussi rapide, soit deux à 
trois fois plus qu'un 1251. De 
nouveaux ordres ont été tou- 


tefois rajoutés à cause de 
l’afficheur graphique, avec ses 
4 800 points adressables 
{150X 32). Chacun des points 
peut être commandé par 
PSET et PRESET, alors que 
la fonction POINT permet de 
connaître leur état. De plus 
GCURSOR positionne un 
curseur à partir duquel on 


peut tracer des motifs graphi- 
ques avec GPRINT. Et la 
puissante instruction LINE 
permet de tracer au choix 
lignes, cadres, ou rectangles 
pleins, tout cela en continu ou 
en pointillé définissable ! 


Autre innovation, une 
interface RS-232 CMOS inté- 
grée ajoute une nouvelle 
famille d’ordres Basic. Ainsi 
l’ordre OPEN permet de défi- 
nir la vitesse de transmission 
(300, 600, ou 1200 bauds), la 
parité, 7 ou 8 bits, 1 ou 2 stop 
bits, etc. Les échanges de 
données se font par INPUT 


# 1 et PRINT # 1, et la fer- 
meture par CLOSE. 

Outre cette interface, un 
autre connecteur permet de 
brancher une imprimante 
thermique-interface cassette : 
le bloc CE-126P. 


Tout ce beau matériel 
devrait être disponible au der- 
nier trimestre 1984. Le prix du 
PC-1350 de base se situerait 
aux environs de 2 500 FF. 
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UN LIVRE 


Introduction 

à la programmation 
Algorithmique 

et langages 

2ème édition 
Joëlle Biondi 

et Gilles Clavel 
Éditions Masson 
Paris 1984 
Broché, 249 pages 
Prix : 74 FF 


NTRODUCTION à la pro- 

grammation appartient à la 
série des manuels informati- 
ques Masson. C’est un livre 
universitaire destiné aux étu- 
diants de première année 
d'IUT (Institut Universitaire 
de Technologie). II est donc 
nettement orienté vers les tech- 
niques de gestion, et quand la 
notion de langage est abordée, 
il s’agit surtout de Cobol, For- 
tran, Pascal. Dans le même 
ordre d’idées, le manuel pro- 
pose, à chaque chapitre, une 
série d’exercices, dont le cor- 
rigé se trouve dans les derniè- 
res pages du livre. 


Ceci ne doit nullement 
décourager le particulier dési- 
rant s'initier à l’informatique. 
En effet, les quatre premiers 
chapitres de l’ouvrage abor- 
dent les notions de base de 
cette discipline de façon très 
progressive, et sans « faire de 
l'informatique » tout de suite, 
ce qui est une excellente idée : 
après tout, comme il est dit 
vers le début, une recette de 
cuisine peut très bien être con- 
sidérée comme un programme, 
alors que la cuisinière est 
l'équivalent du processeur (au 
sens d’entité capable de lire un 
énoncé et d’effectuer la tâche 
indiquée). 

Ainsi, à l’aide de comparai- 
sons imagées, de dessins sim- 
ples et explicites, puis un peu 
plus tard d’un pseudo-langage 
facilement compréhensible 
(méta-Pascal francisé), les 
auteurs abordent les princi- 
paux objets manipulés en pro- 
grammation : l’algorithme, 
l'affectation de variables, les 
constantes, les vecteurs (les 
tableaux unidimensionnels, si 
vous préférez}, et enfin, les 
schémas conditionnels et itéra- 
tifs. 


J'ai beaucoup apprécié la 
quasi-absence de notation 
mathématique dans ces chapi- 
tres, sauf peut-être dans le 
paragraphe sur la notion 
d'analyse descendante. Là 


encore, l'exemple concret qui 
apparaît, et les petits dessins 


assurent une compréhension 
aisée du concept. 

Les derniers chapitres s’inté- 
ressent au « processeur 
habillé », notion imagée dési- 
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gnant un ordinateur, c’est-à- 
dire un processeur plus un lan- 
gage de programmation. Cette 
partie risque d’être moins lisi- 
ble pour le particulier non- 
étudiant en gestion, en raison 
du choix des langages retenus. 
Cependant, chaque liste de 
programme illustrant le chapi- 
tre est donnée dans les trois 
langages : Cobol, Fortran, 
Pascal. L’amateur pourra tou- 
jours se référer à ce dernier, et, 
pourquoi pas, s'initier aux 
deux autres, même s'ils ne font 
pas partie de ses préoccupa- 
tions essentielles. 


Introduction à la program- 
mation est principalement un 
manuel de cours d’'IUT, mais 
ses qualités de clarté lui assure- 
ront aussi une audience parmi 
les amateurs d’informatique, 
quitte pour ces derniers à sau- 
ter les chapitres qui ne les con- 
cernent pas directement. Une 
des vertus de l’ouvrage, et non 
la moindre, est aussi de rester 
dans une gamme de prix « très 
sage », dans un domaine qui 
réserve rarement ce genre de 
bonne surprise. 

AM ES 


e 3534 Octets de mémoire 
programmables en basic. 
e 59 fonctions scientifiques 
préprogrammées. 

Grâce à ces deux 
performances, toutes les 
formes de calcul sont 


maîtrisées par le PC 1401: 
mathématiques, statistiques, | 
hexadécimales. 


SHARP 


Jean-joures 93307 Aubervilliers Cedex 
one: 834.93.44 - Télex: 212174 F 


La gamme SHARP c'est aussi : 


PC-1245, PC-1251, PC-1260, PC-1261,È PC-1350, PC-1500 A 


TD Publicite 
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Les bank n 
ont l’esprit conservateur, 


DISKBANK et ses systèmes : Média Mate 3, Média Mate 5, 
Système/3, Système/5, Système/8. 


Economiques, modulaires, ils protègent, conservent vos 
disquettes. 


Pratiques, vous les emportez avec vous. 
Discrets, ils ne prennent pas de place. 


intelligents, ils permettent un classement efficace et de 
haute qualité. 


Après tout, on n'a jamais vu une “bank” prendre des 
risques : trop conservateur pour cela. 


ê e 
2 
5 Pour plus de renseignements, 
So ® adressez nous votre carte de visite 
ñ ou complétez ce coupon réponse 
di . è PAC+ - 54, rue d'Amsterdam - 75009 PARIS 
La protection de vos disquettes Fr L : Font 
| Prénom : 
| Raison sociale : | 
l il 
| Importateur distributeur, PAC - 54, rue d'Amsterdam - 75009 Paris - 874.00.24 Adresse : | 
_— es mp 


e 1 MICRO-ORDINATEUR e Un cours complet de BASIC, plus de 


ÉCOLE UNIVERSELLE - IFOR 
SHARP PC 1245 OU PC 1251 200 exercices sur machine avec i 


Etablissement prive 


. A d'enseignement à distance 
fourni (ou non si vous en possédez corrections de nombreux sujets de 28, rue Pasteur 92551 Saint-Cloud Cedex 
La . ‘4: a el. 
un). Possibilité Interface ou Impri- composition avec contrôle des Institut de Formation 
mante connaissances. et d'Ouverture aux Realites 


Notions fondamentales (si vous ne APPRENDRE RAPIDEMENT - EFFI- 
possédez pas de connaissances en CACEMENT - À SON RYTHME - PAR 
informatique). CORRESPONDANCE. 


DISPONIBLE: UN COURS 
POUR LES POSSESSEURS 


al 
CONSEILS - DOCUMENTATION APPELEZ AU 771.91.19 D'UN SINCLAIR PA | 
ww | 
ES | 

q 

; N se ae 

Etude gratuite dans le cadre de la formation continue après accord de l'employeur | Oo. CAC : | 

* ue Ro 
Ÿ è* se” ps | 

Ô 
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UN LIVRE 


Démarrer en Forth 

Paul Chirlian 

Traduit de l’américain 
par Claude Nowakowski 
et Dominique Petit 
Éditions du PSI 

Lagny, 1984 

Prix : 120 FF 


E bleu étant la couleur des 

ouvrages consacrés au 
Forth (allez savoir pourquoi !), 
vous ne serez pas surpris du 
bleu profond de ce volume de 
256 pages denses. 

Dès les premières pages, on 
rentre dans le vif du sujet. Un 
exposé rapide de la place de 
Forth dans les langages de 
haut niveau précise bien que 
Forth est différent de tous les 
autres langages parce qu’il a 
été conçu pour la rapidité et 
lPéconomie de mémoire, et 
qu’il combine les avantages des 


langages interprétés et des lan- 
gages compilés. 

L'importance consacrée par 
l’auteur au maniement des dif- 
férentes « piles » (pile de don- 
nées et pile retour, voire pile 
image dans certaines formes les 
plus récentes, telles le Forth- 
Pampuk de l'Hector HRX) 
place le débat là où il doit 
l'être: la notation, dite 
« polonaise inverse» ou 


DUPLICATION DE VOS PROGRAMMES 
INFORMATIQUES SUR CASSETTE 


pépêèch 
avant la nouve 
cas 


ez-VOUS 
ile taxe sur les 


settes vierges: 


CASSETTES VIERGES POUR P.S.I. 


prix pièce 
7,00 F 


boite de 25 
175,00 F 


7,50 F 
8,00 F 


187,50 F 
200,00 F 


8,50 F 


212,50F 


9,00 F 


225,00 F 


11,00 F 


| __275,00F 


COMMANDE : 
par boîte de 25 exemplaires 


PRIX : 


T.T.C. frais de port inclus 


REGLEMENT : 
à la commande 


cassettes WB TÉMOIGNAGE 
51, rue de Ville-d'Avray 
92310 SEVRES - Tél. (1) 534.43.78 
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encore « post-fixée » est la 
seule difficulté réelle de Forth. 
Il y a là une gymnastique à 
faire, des réflexes nouveaux à 
acquérir, des hiérarchies d’opé- 
rateurs à apprendre qui sont 
sans doute le seul frein que 
Forth ait rencontré jusqu’à 
présent. 

Paul Chirlian entraîne son 
lecteur dans l’arithmétique 
simple-longueur et double-lon- 
gueur, les contrôles d’entrées/ 
sorties, la structuration des 
programmes et les indispensa- 
bles tableaux, ainsi que le 
maniement des chaînes de 
caractères. Tout est dit, ou 
presque. Car on aborde 
encore, mais rapidement, la 
compilation et la greffe sur le 
dictionnaire des vocabulaires 
spécialisés. 

Bien sûr, on peut rêver ! On 
pourrait signaler à PSI que les 
quelques erreurs de typogra- 
phie qui se glissent dans tout 
ouvrage sont parfois spéciale- 
ment gênantes quand on parle 
de Forth. Dans un exemple, le 
moindre point, le moindre 
espace compte. On pourrait 
aussi, de façon générale, attirer 
l'attention de tous les auteurs 
sur l'intérêt qu'il y a à distin- 
guer, et pour les mêmes rai- 
sons, la ponctuation du « texte 
Forthw et celle du commen- 
taire. 

A côté d’exercices astucieux, 
mais donnés sans leurs solu- 
tions, on trouve encore de très 
nombreux  programmes-exem- 
ples accompagnés d’explica- 
tions « fouillées ». 

Au total, un excellent 
manuel, et qui plus est, solide 
grâce à sa reliure cousue- 
collée. Même après de mauvais 
traitements, il ne laissera pas 
échapper de feuilles volantes. 

CM 


Un petit tour 
chez le libraire 


Programmation : 
introduction théorique 
en vue de la pratique 
F.H. Raymond 
Editions Masson 
Paris, 1984 

Broché, 184 pages 
Prix : 95 FF 


ZX Spectrum, 

votre micro-ordinateur 
Serge Pouts Lajus 
Editions Cedic/Nathan 
Paris, 1984 

Broché, 128 pages 
Prix : 35 FF 


Dictionnaire 

de la Micro-Informatique 
Français/Anglais 

Edité par Franterm 
Diffusé par Nathan 
Paris, 1984 

Broché, 136 pages 


. Prix : 146 FF 


Programme interne 
du Commodore 64 
Milton Bathurst 
Editions DataCap 


: Diffusé par PSI 
: Belgique, 1984 


Broché, 252 pages 


Prix : 130 FF 


Clefs pour l’Oric 

. (Oric 1 et Oric Atmos) 
:. Emmanuel Flesselles 
-: Editions du PSI 

‘:: Lagny, 1984 


Reliure spirale, 116 pages 


© Prix : 100 FF 


: Assembleur du TRS 80 


Daniel Ranc 
Editions Techniques 
et Scientifiques 


Françaises 
Collection Poche 


Broché, 128 pages 


“Prix : 35 FF 
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Le module 16K d’Alice 


L y avait si longtemps qu’on 

l'attendait, on finissait par 
ne plus y croire. Il sera là à 
Noël, nous disaient-ils ; puis 
en février. 

C’est finalement en juillet 
qu’il arrive, ce module de 
mémoire de 16 Koctets qui 
devrait enfin permettre à Alice 
de rejoindre le clan des ordina- 
teurs familiaux confortables. 

I faut dire que la pauvre 
Alice, pourtant bien née, sem- 
blait un peu délaissée par ses 
deux géniteurs, M. Matra et 
Mme Hachette : les logiciels 
régulièrement annoncés ne sont 
pas toujours disponibles, et les 
acheteurs en étaient finalement 
réduits à faire eux-mêmes leurs 
programmes. Une démarche 
somme toute assez logique 
pour un appareil qui proposait 
une initiation à la programma- 
tion, mais tout de même, c’est 
un peu frustrant par rapport à 
ceux qui nous narguent avec 
leur Grand Prix ou leur Glou- 
ton, non ? Aussi, on se lance 
et on fait son propre pro- 
gramme d'envahisseurs de 
l’espace et patatras..… Nous 
voilà bloqués par les tout petits 
4 Koctets de mémoire disponi- 
ble. 

Alors 16 Koctets, quelle 
aubaine ! Et puis, sur le 
dépliant publicitaire, certaines 
promesses alléchantes : des ins- 
tructions cachées du Basic, des 
possibilités de graphisme haute 
résolution, comment avoir des 
touches à répétition. De ce 
côté-là, il faut bien dire que la 
déception est sérieuse : le mini- 
guide livré avec l’extension, 
intitulé ‘‘Aller plus loin avec 


Black 
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Alice”, n’a rien à voir avec le 
manuel d’origine. Il ne 
s'adresse pas du tout à un 
débutant, et surtout, les quel- 
ques renseignements qu’il 
dévoile comme à regret 
auraient pu, auraient dû, 
dirais-je, figurer normalement 


dans une annexe en fin du 
manuel de base. Le fait d’avoir 
ou non l'extension mémoire 
n'intervient pratiquement pas 
dans les explications fournies. 

Prenons quelques exemples, 


pour mieux comprendre : les 
trois instructions ‘‘cachées”” du 
Basic sont EXEC (pour exécu- 
ter un programme en assem- 
bleur), CLEAR (pour réserver 
de la place à ce programme) et 
CLOADM (pour charger en 
mémoire un programme en 
assembleur). Les acheteurs de 
cassettes un peu curieux les 
avaient sans doute déjà décou- 
vertes depuis un certain temps, 
et elles sont tout à fait utilisa- 
bles sans le module. 

Quant au graphisme haute 
résolution. D'accord, il y a 
quelques renseignements inté- 


CALCULATRICES et ORDINATEURS de POCHE 


et accessoires 


Super Promotion sur Stock ! 
EX PC1245-PC1251-PC1255-PC1401-1500A-1260-1261 etc. 


AUTRES 7 Vel ND) HP11-HP12-HP15-HP71-HP75 etc. 
[CANON X 07 et périphériques etc. 
CA 00-750» 200-702P-P8700 ete. 


MAUBERT ELECTRONIC40, bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 


ressants sur le circuit généra- 
teur vidéo MC 6847, mais 
aucun ne concerne la gestion 
d’écran, et il n’y a pas un véri- 
table programme de démons-: 
tration de la haute résolution 
(il y en a bien un qui porte ce 
titre, mais il se contente appa- 
remment de faire des dessins très 
fantaisistes sur les quatre lignes : 
du haut de l'écran et il disparaît : 
dès que l’on cherche à sortir 
pour reprendre le contrôle). 

Dans le même ordre d'idée, 
il n’est pas vraiment nécessaire 
de disposer du module 16K : 
pour apprendre que l’on peut : 
sauvegarder des données ou: 
des tableaux alphanumériques 
tout simplement en les trans- 
formant en numérique par leur 


Cassettes 
et disquettes 


PC-Vision 
Cassette pour PC-1500 
et Tandy PC-2 


code ASCII. Éditeur pleine page pour 
Quelques petits renseigne- Ordinateur de poche 
ments utiles pourront être Edité par Pocket Soft 


Distribué par X-LOG 
Prix : moins de 300 FF 


trouvés de-ci, de-là, mais ce … 
manuel est tout de même bien 
décevant. Pour ma part, je ne 
trouve finalement qu’un mérite 
à cette extension mémoire : 
c’est d’être une extension … 
mémoire, purement et simple- 
ment. Alice dispose alors de’ 
19 Koctets de mémoire vive, ce … 
qui permet de faire du travail 
sérieux. :. 


J'apprends le langage Forth 
Deux cassettes pour Oric-1, 
compatibles Atmos 

Édité par ARG Informatique 
Distribué par Innelec 

Prix : 200 FF 


.: J'apprends la CAO 

On regrettera que Matra . Cassette pour Oric-1/Atmos 
n'ait pas rédigé un vrai Initiation à la Conception 
manuel, dans l'esprit du Assistée par Ordinateur 
manuel de base qui était tout à Édité par Loriciels 
fait adapté à l'appareil. Dom- Prix : 180 FF 
mage aussi qu’à une époque où 
l’on peut trouver une extension 
mémoire de 64 Koctets pour: 
environ 800 FF (celle de l’IBM: 
PC), Matra choisisse de vendre 
la sienne à un prix de 595 FF. 
Cela pourrait bien rebuter 
nombre d’acheteurs potentiels. 
Si au moins, pour le prix, on 
pouvait disposer d’un véritable 
éditeur ! 


… Éditeur musical 

Cassette pour Oric-1/Atmos 
… Édité par Loriciels 

= Prix : 95 FF 


Calc 
Cassette pour PB-700 
Tableau de calculs 
Édité par Logi’stick 
Distribué par DDI 


JD 5H x: 140 FF 
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Cassettes paris 11 L UN LIVRE trouveront des renseignements 
: assette pour 1 16 Ko très intéressants et même de 
et disquettes Cassette pour ZX Spectrum véritables utilitaires. 
48 Ko Le seul défaut de ce livre est 
Supercode Traduit les programmes Basic: certainemgnt son manque de 
a Ro PT Eee vonn Sofvare Pascal UCSD sur Apple I UC ce Qi et le Some 
100 routines en langage- Services … J acques Rouault gt ces d'u une eobe 
machine réutilisables dans les Distribué par Innelec = Patrice Girard tation écrit dans un langage 
programmes en Basic ou en (Manuels en anglais) Editions du PSI structuré. Il vous faudra donc 
langage-machine Prix de chaque cassette : Collection Guide Pratique passer d’un chapitre à l’autre 
Édité et distribué par 120 FF Lagny, 1984 selon les notions que vous dési- 
Sémaphore Broché, 228 pages rerez voir abordées, sans qu’un 
Prix : 150 FF Tiny Forth : Prix: 110 FF 
D Bug Disquette pour Commodore 64 
, Édité par Micro Applicati 
Cassette pour Oric-1/Atmos + TR ARPRREORRS ; : 
Moniteur -debugger e livre tient les promesses 
Édité par No man's land Prix : 490 FF = de son titre. Il traite en 
] “ effet du Pascal, du système 
ne Has Graphe :  UCSD et de l’Apple IL. Il est 
° Cassette pour PB-700 2. divisé en deux parties. La pre- 
Master 64 Graphiques statistiques ‘+  mière expose la base du système 
Disquette pour Commodore 64 Édité par Logi’stick …  UCSD, alors que la seconde 
Extension du Basic Distribué par DDI à traite du langage Pascal vu sous È 
Édité par Micro Application Prix : 140 FF … l'angle UCSD. | FÈ 
Software Il est surtout destiné aux fs 
Distribué par Procep Virgule débutants rebutés par la lecture 
Prix : 950 FF Disquette pour Commodore 64 (en anglais) du Apple Pascal - 
Disponible sur cassette : Language Reference Manual, 
Assembleur symbolique Traitement de texte mais qui ont utilisé le système 
Cassette pour Sega 3000 Édité et distribué par =.  UCSD pendant quelques heu- 
Édité par Loriciels Micro Application Softwaie res. Toutefois, les utilisateurs 
Prix : 260 FF Prix : 750 FF - connaissant bien ce système y RL ETTs 


@ SPECIALISTE DES 
COMPAREZ |: 
GESTION SUR 
Logiciel de Comptabilité Générale “Nouveau Plan Comptable" MICRO-ORDINATEUR 
option génération :+200 frs adaptés aux PME 


option 180 Comptes +250 frs version 120 Comptes 1750frs 


PATE LIT 


Logiciel du traitement de la Paie jusqu'à 80 employés 


PMI, commerçants, 
artisans, professions 
libérales. 


® Marques déposées Dominique PETITQUEUX 


option mensualisation +300 frs version trimestrialisation 1500 frs 


GA°KEX" 


Logiciel de gestion des CHIFFRES dans le TEMPS {Histrogramme) 


version de base 900 frs 


TABAMORT-KIR 


Logiciel de gestion du Tableau d'Amortissement linéaire & dégressif 


Sarl au capital de 20.000 frs 


siège social 
5 rue Mont Alaric 
11100 NARBONNE 
68/42.18.92 & 49.82.57 


RC Narbonne B 327 181 293 


version de base 900 frs 


ETrIOLrEr 


Logiciel de gestion des adresses postales (Mailing) 


version de base 400 frs 
Matériel utilisé TRS80 modèle 3, 4 ou 4P - 48/64 K - 2 unités 5"1/4 - TRSDOS 1.3 QHERTY 


Qond> corporation ; or imantes recommandées DMP200, DMP#20, DMP400, DMP420, LPVI, LPVIII 
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sommaire détaillé ou un index touches de déplacement du cur- 
soit là pour vous aider. seur, ou la mauvaise initialisa- Deux ans de garantie, qui dit mieux ? 
tion de l'imprimante. 


À firme américaine Texas Instruments arantit ésormais 
L'ordre de lecture qui nous Ce livre doit, à notre avis, se | pendant deux ans (pièces et main-d'œuvre) toutes ses calcu- 
paraît plus logique est celui-ci.  biacer dans la bibliothèque de jatrices, depuis la simple “4 opérations” jusqu’à la calculatrice 
l'utilisateur du système Pascal haut de gamme. Et cela vaut pour tout. ce ns le 
Les chapitres 1, 2 et 3 présen- UCSD. Il ne remplace pas le 1° Mars 1984. 
tent le matériel, le système manuel de référence du lan- Tout produit défectueux devrait être purement 
UCSD et le langage Pascal. Ils gage, mais il le complète utile- remplacé — en échange standard — à l’endroit où il a été ours 
sont courts, mais fournissent ment. Bien qu’il traite de la ver- Plus de crainte donc, en principe, pur à un clavier défaillant ou 
une bonne introduction. sion 1.1 du système, il reste un afficheur qui flanche. 
entièrement valable pour la On ne peut que se. féliciter de cetle. 1 
nouvelle version 1.2 sortie qu’elle soit suivie par les autres constructe 
récemment. des calculatrices ou des ordinateurs, il est rare 
TC = garantie s’étende sur plus de six où neuf mois... 


On peut ensuite passer direc- 
tement à la seconde partie du 
livre, qui permet de découvrir le 
langage Pascal, sous son implé- 
mentation UCSD. De très nom- Le langage machine 
breux exemples, ni trop sim- F : : : du ZX Spectrum 
ples, ni trop compliqués, illus- Un petit tour chez le libraire lan Stewart et Robin Jones 
trent ces notions. [ls devraient Editions Cedic/Nathan 
permettre au lecteur de progres- Paris, 1984 
ser rapidement. Broché, 144 pages 
Prix : 78,50 FF 


À chaque étape sont indi- 
quées les limitations du système 
qui sont autant de petits pièges 
dans lesquels chacun finit par 
tomber. Par exemple, vous 
découvrirez en page 114 pour 


Pratique du Commodore 64 
et du portable S/DX-64 
Henri Lilen 

Editions Radio 


quelle raison le programme de Paris, 1984 
calcul de racine carrée vous Broché, 174 pages 
donne 51 comme racine de Prix : 100 FF 


68 137, alors que 51 x 51 — 
2 601. 


DEVENEZ 
UN TECHNICIEN DIPLOMÉ 
DANS LES FILIERES D’AVENIR. 


Jeux sur Philips C 7420 
Videopac + Extension Basic 
pour console 

de jeu 

Christophe Bardon 

et Benoît de Merly 
Editions Edimicro 


Les bogues du système sont 
également finement analysées. 
Elles paraissent parfois telle- 
ment incroyables que nous nous 
sommes fait un devoir de véri- 
fier qu’elles existaient. Hélas, 
elles existent bel et bien: les 


Paris, 1984 
programmeurs du Pascal UCSD | Broché, 200 pages Informatique 
pour Apple II pourraient lire ce} prix : 98 FF Elect ” 
livre avec profit, si ce n’est déjà ec ronique 
fait. Le guide du Spectravidéo Electricité 


Daniel Lemahieu 
et Etienne Dubois 
Editions du PSI 


Le chapitre 4 traite du com- 
pilateur, en décrivant ses diffé- 


Formation assurée 


BAT-BACHELIER 


rentes options. Ici encore, de ne ÉE L. Let 
bons exemples sont fournis. On es . 00 nn autement qualifiés. 


comprend rapidement le fonc- 
tionnement des diverses com- 
mandes. 


Autres formations : 
Radio-Hifi. TV-Magnétoscope. 
Chimie. Froid. 

Automation. Aviation. 


Applications du Z80 
James W. Coffron 
Editions Sybex 


Enfin, le chapitre 5 présente} Paris, 1984 
de véritables utilitaires qui, s’ils | RC D Re 
* sont faciles à utiliser, ne sont ge is 1 Veuillez m'adresser gratuitement (pour l'étranger joindre 40 FF) 


1 la documentation concernant les formations suivantes : 
L-  _— = = 


pas évidents à comprendre, 
puisqu'ils modifient des zones 


Pratique du micro-ordinateur 


réservées au système. Bien qu’il] Tandy MC-10 I Nom su ———Prénom : dé 
s'intitule « Programme de mise | Méthode progressive avec 20 ne — Code postal: . 
en route », ce chapitre pourra] programmes dés 


Ecole Technique 


Moyenne et Supérieure de Paris 
ET Enseignement privé à distance 
3, rue Thénard - 75240 Paris Cedex 05 


Tél. : 634.21.99 


Henri Lilen 
Editions Radio 
Paris, 1984 
Broché, 158 pages 
Prix : 100 FF 


très bien être lu en dernier, si 
l’on accepte quelques inconvé- 
nients mineurs tels que le man- 
que de contrôle du « reset », le 
non-fonctionnement de deux 
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Commandez … 


vos albums de. 


Les numéros de L'ORDINATEUR DE POCHE sont 
regroupés par cinq dans des albums: Vous 
trouvez les numéros 1 à:5 dans l'album n°1 
les numéros 6 à 10 dans l'album n° 2, etc. 
Pour disposer de L'O.P. dans un format 
agréable et bien adapté à son classement 
dans votre bibliothèque, commandez 
aujourd'hui-même vos albums à l'aide 
du bulletin ci-dessous. 


BULLETIN DE COMMANDE à retoumero 4 


L'ORDINATEUR DE POCHE, service albums, 
5 place du Colonel Fabien, 75491 PARIS Cedex 10 


Nom - —_ = 


Prénom 


Adresse 


Code postal _____ Ville 


Pays 


Veuillez me faire parvenir le(s) album{s) suivant(s) 


ALBUMN°T | | 


(cochez le(s) numéro(s) choisits) 


L'ALBUMN°2 | | ALBUM N°3 | 


Ci-joint mon règlement {prix d'un album frais d'envoi inclus. 58 FF ; 
Belgique 500 FB ; Suisse 18 FS ; Etranger 75 FF) 
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UN LIVRE 


Le Basic 

bien programmé 

A.P. Stephenson 
Traduit de J'anglais par 
G. Jastrzeb 

Editions Dunod 

Paris, 1984 

Broché, 120 pages 

Prix : 65 FF 


ONTRAIREMENT à ce 

que pourrait laisser pen- 
ser le titre (Le Basic bien pro- 
grammé), il ne s’agit pas là 
d’un manuel de perfectionne- 
ment, mais d’un livre d’initia- 
tion. La traduction du titre 
anglais (Beginner's guide to 
basic programming) nous a 
paru bizarre au vu du contenu. 
L'auteur, en effet, insiste sur 
le fait que, pour un débutant, 
avoir écrit un programme qui 
“tourne” est beaucoup plus 
important que d’avoir obéi aux 
règles de la programmation 
structurée. Il considère que 
vouloir obéir à ces règles dès 
l'apprentissage peut être source 
de découragement pour le pro- 
grammeur novice. 

Voilà donc l’idée qui sous- 
tend la progression du livre et 
elle peut se défendre s’agissant 
d'un manuel d'initiation (on 
en a parfois assez d’entendre 
les professionnels chanter les 
louanges de la programmation 
structurée). L'objectif premier 


Du côté des clubs 


Si tous les epsonistes 
voulaient bien. 


EPUIS le début de 1984, 
l'APBLUTH édite un petit 
bulletin de liaison destiné aux 
utilisateurs du HX-20 ou de 
tout autre modèle compatible. 
Pour tout renseignement sur 
cette association : 
APBLUTH 
65 rue des Fleurs 
73000 Chambéry 


Ciel ! Un club à Tahiti. 


OUS les tropiques, au pays 
des vahinés et des lagons 
transparents, on pratique 
l'informatique avec autant 


De l'ABC aux fichiers 


Dino 


du grand débutant est souvent 
le résultat immédiat. 

L’auteur essaie de ne pas se 
référer à une machine ou à un 
Basic particulier, et il y réussit 
assez bien. La progression est 
habilement menée (des passa- 
ges sur le fonctionnement 
interne de la machine donnent 
envie d’aller plus loin). 

On passe rapidement 
(trop ?) sur les fichiers, mais il 
est vrai que, dans ce domaine, 
les différences d’un Basic à 
l’autre sont très importantes. 
Le dernier chapitre (petit guide 
pratique de programmation) 
paraît fort utile au stade de 
l’apprentissage. 

En résumé, un livre qui 
pourrait convenir à plus d’un 
débutant en informatique. 

JL M 


d'intérêt qu’en France métro- 
politaine. Le CIEL (bleu, bien 
sûr), ou Club d’Informatique 
et d’Electronique de Loisirs, 
regroupe plus d’une centaine 
de personnes de 7 à 77 ans. 

Le club est équipé de quatre 
« grosses » machines et de plu- 
sieurs autres plus modestes. I] 
se réunit (les lundi, mercredi et 
jeudi soir) dans les locaux 
d’une école primaire, à 
Tipaerui-Plage, en la bonne 
ville de Papeete. Qu’on se le 
dise dans la région. LIST 
adresse son salut à ses amis du 
bout du monde. 

Pour tout renseignement : 
Club CIEL 
BP 4460 
Tahiti 
Polynésie française 
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Carnet rose 


En Seine-Saint-Denis 


Drancy, le club ALIF 
paraît démarrer sur les 

chapeaux de roues. Il s'adresse 
à la fois aux débutants et aux 
amateurs chevronnés. 
Micro-club ALIF 
54 avenue Henri Barbusse 
93700 Drancy 
Tél. : 832 10 44 


Dans le Gard 


E Club Oric de Saint- 
Chaptes accueille ses nou- 
veaux adhérents sans leur 
demander de cotisation : il suf- 
fit d’y apporter sa propre pas- 
sion. Les réunions ont lieu les 
dimanche après-midi. 
Club Oric de Saint-Chaptes 
rue des Mases 
30190 St Chaptes 
Tél. : (66) 81 25 88 


Dans les Hauts-de-Seine 


E nouveau Club Informa- 
tique Régional de Cour- 
bevoie (alias CIROCO) a, lui 


aussi, le vent en poupe, et ce|UN LIVRE 


ne sont pas les projets qui lui 
manquent. 

Il Qtiendra son assemblée 
générale le 11 septembre à 
20 h 30, au stade municipal de 
Courbevoie. Tous les curieux y 
sont invités. 

CIROCO 

12 rue Carpeaux 
92400 Courbevoie 
Tél. : 333 38 83 


Pour les amateurs de Forth 


N groupement d'’utilisa- 

teurs du langage Forth, 
le GULF, a tenu sa première 
réunion fin juin à Paris. 

A souligner une excellente 
disposition inscrite dans les 
statuts de cette association : 
tous les membres du GULF 
sont convenus de proscrire les 
copies illégales de logiciels 
commerciaux. 

Comment ne pas approuver 
cette prise de position contre le 
piratage des programmes ? 
GULF 
14 place Gabriel Péri 
75008 Paris 
Tél. : 293 35 54 


Si vous aimez les maths. 


S' vous aimez les maths, par 
curiosité, pour le plaisir de 
découvrir des problèmes éton- 
nants, trois ouvrages méritent 
votre attention. 


Math’Circus 

Martin Gardner 

Traduit de l’américain par 
Jean-Pierre Labrique 
Bibliothèque Pour la Science 
Diffusé par Belin 

Paris, 1982 

Relié, 144 pages 

Prix : 62 FF 


Math’ Festival 

Martin Gardner 
Bibliothèque Pour la Science 
Diffusé par Belin 

Paris, 1981 

Relié, 176 pages 

Prix : 62 FF 


Mathématiques venues 
d’ailleurs 

Adapté du russe par 
Jean-Michel Kantor 
Éditions Belin 

Paris, 1982 

Broché, 160 pages 
Prix: 72 FF 


Programmer chez soi : 
le Basic 

ya Virgatchik 
Editions Marabout 
Paris, 1983 

Broché, 256 pages 


Prix : 24 FF 


"OICI un ouvrage d’initia- 
tion bon marché, plutôt 
classique et assez complet. 
L'auteur commence par décrire 
un petit système informatique 
(matériel et logiciel), puis il 
nous délivre un cours de Basic 
où l’on aurait aimé trouver un 
peu de cet humour qui permet 
d'apprendre en s'amusant. 

Les instructions et les fonc- 
tions sont décrites une par une, 
agrémentées de quelques exem- 
ples un peu courts. On y 
trouve également une présenta- 
tion des ordinogrammes. 

A la suite de ce cours sont 
proposés 22 proprammes de 
calcul, de logique et de ges- 
tion. Quelques pages évoquent 
différents Basics courants sur 


Les dernières parutions de 


sont disponibles à la 


LIBRAIRIE INFORMATIQUE D’AUJOURD'HUI 


253, rue Lecourbe, 75015 Paris. © (1) 828 72 88 - Métro : Convention ou Boucicaut, ouvert du lundi au samedi de9hà19h 


LA GAZETTE DE LISTÉ 


le marché, et un chapitre est 
consacré à la description de dix 
ordinateurs familiaux. 

Dernier point, très intéres- 
sant, l’ouvrage se termine sur 
deux lexiques, l’un des termes 
de l'informatique et l’autre des 
mots clés du Basic. 

JL # 


Des imprimantes pour 
les petits budgets 


À Seikosha GP-S0A est 
une imprimante matri- 
cielle (5 points sur 8 et 46 
colonnes) utilisant du papier 
ordinaire en rouleau. Elle 


fonctionne à la vitesse de 40 
caractères à la seconde et per- 
met l'impression en double 
largeur ainsi que les graphis- 
mes point par point. L’inter- 
face est au standard Centro- 
nics. 


LL 


Il en existe une version spé- 
cialement adaptée au Spec- 
trum (la GP-50S) qui 
n’imprime que sur 32 colon- 
nes et à la vitesse de 25 carac- 
tères à la seconde. 

Les dimensions de ce péri- 
phérique sont modestes (215 
x 250 X 85 mm), et le prix 
l’est aussi : environ 1 400 FF 
ttc. = 


—— 


Librairie 


Informatique 
d'Aujourd'hui 


TOUS Vos lvres à 
TOUTES vos AZ 


Re 


: 
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PROGRAMME AUTODIDACTE.. 


QUAND UN ORDINATEUR 
APPREND LE TIC-TAC-TOE 


U début, votre ordinateur ne connait que 
les règles du jeu. C'est un piètre 
adversaire. Puis, peu à peu, à force de jouer, 1l 
s'améliore. Le programme ne se transforme pas, 
mais il tient compte des parties précédentes. 


Si vous ne connaissez pas 

encore ce grand classique 
qu'est le jeu de tic-tac-toe, vous en 
apprendrez les règles en moins d’une 
minute. Elles ont été rappelées dans 
l’encadré ci-dessous et sont élémentai- 
res. Les parties se déroulent à deux, 
assez souvent en cachette, au fond 
d’une salle de classe. 


A défaut d’un adversaire humain, 
on peut aussi se mesurer à un Ordina- 
teur. Mais il y a mieux. On peut en 
effet faire en sorte que le programme 
tire les leçons des parties qu’il a déjà 


Règles du tic-tac-toe 


E jeu se dispute sur un échiquier 

de trois cases sur trois. Il oppose 
deux joueurs qui déposent, chacun à 
son tour, un pion à sa couleur sur une 
case encore vide. On gagne en alignant 
trois pions de son camp soit horizonta- 
lement, soit verticalement, soit en dia- 
gonale. Sur la figure ci-dessous, la vic- 
toire est allée aux Y. 
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disputées et soit, en quelque sorte, 
capable d’un apprentissage. Le méca- 
nisme utilisé est en fait très simple. 


Au début, la machine joue en appli- 
quant — bêtement — les règles du tic- 
tac-toe et elle constate la victoire de 
l’un des deux camps ou, éventuelle- 
ment, le match nul. Puis elle modifie 
son jeu en fonction des résultats obte- 
nus. 


Un damier de tic-tac-toe est un 
carré de trois cases sur trois dont cha- 
cune peut être vide ou occupée par l’un 
ou l’autre des deux adversaires (nous 


TETE ! 


DEPUS ŒQU'il À iNGURGITÉ CE 
PROGRAMME | MON. ORDINATEUR 
A VRA MENT . ZA GROSSE 


les désignerons par X et Y). Un pre- 
mier calcul nous indique donc un 
maximum théorique de 3°, soit 19 683 
positions différentes. En fait, beau- 
coup de ces positions ne peuvent pas 
être rencontrées au cours d’une partie 
réelle, et cela pour deux raisons au 
moins : 

e les joueurs occupent une case à tour 
de rôle : la différence entre le nombre 
des X et celui des Y sur le damier ne 
peut qu'être égale à zéro ou à un; 

e la partie s’arrête dès qu’un joueur a 
gagné (La Palisse) ; on ne peut donc 
trouver à la fois un alignement de 
trois X et de trois Y. 


On pourrait d’ailleurs réduire 
encore le nombre des positions diffé- 
rentes en considérant les symétries 
existant entre certaines d’entre elles. 


Pendant chaque partie, le pro- 
gramme mémorise les positions suc- 
cessives, puis il recherche la note attri- 
buée à chacune de ces positions (1). Il 
augmente la note d’un point si cette 
position a finalement conduit à la vic- 
toire du camp qui l’a jouée, et il la 
diminue d’autant dans le cas contraire 


{1} Au début, toutes ces notes 
sont nulles, et le programme joue 
at hasard. 
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PROGRAMME AUTODIDACTE... 
TIC-TAC-TOE 


Tic-tac-toe, un programme qui progresse 
Basic Microsoft 

Auteur Thierry Lévy-Abégnoli 

Copyright LIST et l’auteur 


19 CLS:REM EFFACE L'ECRAN 


97 REM--—— "TT 

96 REM INITIALISATION DEFINITIVE 

99 REM--——— | 
220 DIM JECB),CC1), CEC1: 8) ; MX C9), MC 9): NC9), POXCIBA 1 ) ; NICL) y TCB) ; KA | 
TD YC7):ZC7);, AB (25 de L fr | 
110 DATA 1:2,5,6,9, 18, 27, 54, E1, 162, 243, 4BE, 729, 1498, 2187, 4374, ES6 Æecherche de la posihon 
‘13122 gur' a obfenu la | 
120 FOR 1=@ TO B:READ CECO, I): READ CECI, L):NEXT 1 ; 

170 JCBD=BE T1) =1ETC2I=Q: JCI)=11J (4) 20? J(S)=15J(6)=Q1 JC7) m1 1 JB) =Q meilleure note. 

149 C(B)=1:CC1)=-1INJ (BD el ENTE1)=0 

158 DATA 2,2,1,3,5,1,E,8, 1, D, &, 3 11 7: 3 2, Bi Si ss Gi 2,6 9 

168 FOR 1=0 TO 7:READ X(I):READ VCI):READ ZCI):NEXT 

170 A$CD)=" “:ASC1)=" KM: ASCDD=" Vi [eg 

197 REM-—————— "2" ; : : 

198 REM PRESENTATION DES OPTIONS Execution du coup qui | 

199 REM=———— s Ê 2: 

200 PRINT'VOULEZ-VOUS":PRINT"- QUE JE JOUE CONTRE MOI {1)":PRINT“ mene a celle position. 


— JOUER CONTRE MOI C2)"2INPUT A:A=A-1 


210 IF A=1 THEN 250 

220 IF A()0 THEN 200 

230 PRINT" POUR REVENIR AU MENU, PRESSEZ UNE TOUCHE, PUIS ATTENDEZ 4. 
LA FIN DE LA PARTIE EN COURS" S/ockage de celle posifro 
240 GOTOSA8 

25@ INPUT “VOULEZ-VOUS COMMENCEZ (O OÙ A"';A$ 


Calcul des posrhions 
povvanf resulfer de Ja 
Pesrhon 


1nifiale. 


260 IF A$="0" GOSUB 1500:G0T0 590 

270 IF A$="N" THEN 500 Î 
260 GOTO 250 

ST RM la partie 

298 REM S/P INITIALISATION AVANT CHAQUE PARTIE + 9 

299 REM---— es/-elle finie : 
T08 FOR I=0 TO S:JECI)=@:NEXT I | 
310 P=@:I=0: DR=Q:V-2:0Q-0 

320 RETURN 

897 RM" 
49E REM DETERMINATION DU COUP JOUE 

4IIS REM--—— | 
S00 S=-1000:H=QO:FOR I11=9 TO € 


510 
Sz0 
S3a 
549 
545 
550 
569 
578 
SE0 
590 
600 
ERS 
610 

20 


IF JECI1)4)@ THEN 55@ 
CO=P+CECJCI), 11) 

GOSUB 11008 

IF RP=S LET MXCH)=11: H=H+i 

IF RP)S LET S=RP:MX(CQ)=I1:H=1 
NEXT Ii:MC=MXCRNDCH)-1):PRINT'JE JOUE EN" sMC+isnan 
GOSUR 728 

IF DR=1 THEN 670 

IF A=Q THEN 620 

INPUT "OU JOUEZ-VOUS ":MC 

IF MC(I OR MC)90 THEN 590 

IF JECMC-1) (:@ THEN 590 
MC=MC-1:GO0SUR 700 

IF DR=Q THEN 59@ 


Zncremen/ation des 
nofes des posifions Jouée 


par le vainqueur. 


670 GOSUB 300 j 
640 IF A=Q THEN 660 ! 
E50 GOTO 200 î 
EE IF INKEY#()"" THEN 200 “à z | 
E70 GOTO 500 Decremen/lation des | | 
696 REM--————— no/es des posihons  Jovees À 
E97 REM S/P COUP JOUE | 
G9G REM-——— mm em ve Par /e Percant. à 
699 REM-----— MODIFICATION DU JEU à 

700 P=P+CECJCI), MC) :O=Q+CEC1-JCI) , MOD 2 JECMC)=NJ CJ C1) > : GOSUB1 SU 


718 
729 
730 
750 
758 
759 
768 
770 
798 


GOSUB SDD:IF V=i THEN 760 

IF I(E THEN 750 

PRINT"MATCH NUL": DR=1: RETURN 
MCID=PENCID=Q: I=l+13:MCI)=Q: NC I) =Q: RETURN 
REM--—--- MODIFICATION DE SES * CONNAISSANCES” 


"REM-----— EN CAS DE VICTOIRE D'UN CAMP 


CaC(CJCI)) 
FOR Ii=@ TO I STEP 2 
CLæCtCO=M(11) : GOSUB 1200: CL=C:CO=N(11) :GOSUB 1:80 
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Nouvelle partie 


Organigramme du Programme 


quand (| joue contre ur - même. 
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Représentation en mémoire 
d'une position 


É terrain de jeu est composé de 

neuf cases dont chacune peut être 
vide ou contenir soit un X, soit un Y. 
Nous choisirons de représenter un vide 
par le chiffre 0, un Y par le chiffre 1 et 
un X par le chiffre 2. Avec ces conven- 
tions, la position ci-dessous sera repré- 
sentée par le nombre 121010202 en 
base 3, soit, en base 10: 2x3 + 
0x3! + 2X3 + Ox3 + 1x3 + 
Ox3 + 1x36 + 2x3 + 1x3 = 
11 765. 


Si cette position a mené à la défaite 
du camp qui l’a jouée, l'élément de 
tableau numéro 11 765 est diminué 
d’une unité. Pour des raisons de place 
en mémoire, chaque élément du 
tableau SC(i) contient les notes de deux 
positions, l'accès à l’une ou l’autre se 
fait dans le sous-programme de la ligne 
1100, Chaque élément SC(i) est com- 
pris entre —32768 et +32767 (entier 
codé sur deux octets) ; les deux notes 
Si. et Sj+1 sont ie que SC(i) = 
Sj+256XS;}47 avec S; et Sj +1 com- 
05 entre — 118 et + 17. Chaque note 
est donc finalement codée sur un octet. 
Une solution beaucoup plus simple 
aurait consisté à utiliser les fonctions 
PEEK et POKE, mais cela aurait rendu 
plus délicate l’adaptation du pro- 
gramme d’une machine à l’autre. 


Codage de l'état des cases 
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600 
820 
830 
897 
898 
8ss 
308 
910 
920 
970 
AGNE !" 

940 NEXT IZ 
9S@ NEXT 12 
960 RETURN 


NEXT Ii 
DR=1: RETURN 


FOR I2=9 TO 7:Nr9 


1140 
1150 
1160 
1170 
1295 
129E 


IF X)127 LET X=x-256 

IF Y)r127 LET Y=256-Y 

IF IT=C0/2 LET RP=X3 RETURN 
RP=Y 3 RETURN 


1320 IF 
1520 IF 
1340 IF 
1550 IF 
1360 
1370 


RP=127 AND CL=i RETURN 


CL=i THEN 1370 
RP=0 LET CL=25$ 
GOTO 13E0 

IF RP=255 LET CL=-255 


Pour choisir ce qu’il va jouer, le 
programme passe en revue les diffé- 
rents coups légaux, il calcule les posi- 
tions qui en résultent, puis il joue le 
coup qui a obtenu le plus de points 
jusqu’à présent. Si la plus forte note a 
été attribuée à plusieurs coups, il en 
choisit un au hasard pour le jouer. 


Le programme peut, si vous le vou- 
lez, jouer contre lui-même et s’auto- 
perfectionner sans que vous n’ayez à 
intervenir. Il le fera au rythme d’envi- 
ron trois parties à la minute. Quand 
vous déciderez de l’affronter ensuite, 
vous découvrirez un adversaire qui a 
fait des progrès. 


Ce mode d’auto-apprentissage reste 
pourtant assez lent : le programme 
piétine un peu dans les premiers 
temps. Il s'aperçoit tout de même 
assez vite que jouer la case du centre 
mène souvent à la victoire. Après plu- 


FOR I%=XC12) TO YCI2) STEP ZCI2) 
IF JECIZ)=0 OR JECIZ) ()JECXCIZ2)) LET IZ=8:GO0T0 940 
NEN+13IF N=S LET Vel: 12#8:12=08: PRINTULES" FASCNJ SCI) 33" ONT G 


1297 REM INCREMENTATION SI CL=1i 
1298 REM DECREMENTATION SI Cl=-1 
1299 REME === == en ne nee nnnennene 
1300 GOSUB 1100 

1310 IF RP=-12E AND Cl=-1 RETURN 


Cl=-C3CO=M(C11+1) :GOSUB 1%B0:CL=-C:CO=N(11+1) : GOSUB 1508. 


1095 REM---———— 

1096 REM S/P LECTURE DE LA NOTE D'UNE POSITION: 
1097 REM EN ENTREE: POSITION CO 

1098 REM EN SORTIE: NOTE RP 

TOO, RE em 

1108 IT=INT(CO/2) 

111@ Ti=POXCIT) 

1120 Y=INT(T1/25E) 

1130 X=T1-256»Y 


REM MODIFICATION DE LA NOTE DE LA POSITION CO: 


IT{)C0/2 LET CL=256*CL:GOTO 15:60 


sieurs heures, il devient assez difficile 
à battre, sauf quand il rencontre des 
positions nouvelles. 


1380 POXCIT)=POXCIT)+CL: RETURN 
1497 REM---— mme 

1498 REM AFFICHAGE DU JEU 

1499 REM-—————— 

1500 PRINT “ 

1510 FOR I4=9 TO 6 STEP 3 

1520 FOR 15=0 TO 2 

1530 IF JECI4+15)=0 LET V$=STR$CI4+15+1) :GOTD 1550 
1540 VS=ASCJECI4+15)) 

1550 PRINT“; US; " "5 

1560 NEXT 15 

1570 PRINT“!" 

1580 NEXT 14 

1590 PRINT “ 

1600 RETURN 

(voir encadré ci-contre). En cas d’ex- 
æquo, il laisse la note telle qu’elle 
était. 


A ce stade, il faut d’ailleurs signaler 
un phénomène qui survient parfois. 
Quand le programme fait une partie 
nulle au cours de laquelle il n’a pas eu 
à choisir un seul coup au hasard, il 
n’apprend rien et rejoue indéfiniment 
la même partie. Il faut alors reprendre 
le contrôle et livrer une ou deux par- 
ties contre lui. 


Si vous disputez vous-même les par- 
ties contre l’ordinateur, l’apprentis- 
sage sera d’autant plus rapide que 
vous serez un joueur habile. Pour 
vous en convaincre, faites une tren- 
taine de parties en tenant le même 
camp et en jouant le mieux possible, 
puis changez de camp. Vous verrez 
que le programme a assimilé en partie 
votre façon de faire. 


Thierry LÉVY-ABÉGNOLI 
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PRES le langage- machi 
évolué fait son appariti 
Essentiellement tourné vers les 4 
scientifiques, ce langage à subi à 
évolutions. Après Fortran . 


né en. EL 


1954, Fortran II, IV ei | vont + suivre. 


Quel chemin. 


Rappelé d’urgence à Paris, 
vous devez prendre demain le 
train Deauville-Paris. 


Une première solution consiste à 
négocier, avec le chef de gare de 
Deauville, la place coin-fenêtre, dans 
le sens de la marche, du comparti- 
ment 3 de la voiture 14 du train de 
8h 47. La seconde consiste à faire 
confiance à la SNCF et simplement à 
réserver, par téléphone, une place en 
seconde classe dans le 8 h 47. 


L'’ancèétre est 


en pleine forme 


La première méthode s’appelle : 
programmer en langage-machine. La 
seconde, qui laisse au système le soin 
de régler des détails sans grande 
importance, consiste à utiliser un 
“langage évolué”. C’est à eux main- 
tenant que nous allons nous intéres- 
ser, et d’abord au glorieux ancêtre, 
toujours fidèle au poste : Fortran. 


LIST - PAGE 36 


D’après René Moreau (dans Ainsi 
naquit l'informatique paru chez 
Dunod en 1982) il eut en vérité quel- 
ques précurseurs, dont par exemple le 
calcul d’expressions arithmétiques dû 
au mathématicien Rutishauser pour 
les besoins de l'analyse numérique 
(1952) ; il eut aussi quelques concur- 
rents plus ou moins contemporains 
dont Mathmatic (de cette chère Grace 
Murray Hopper qui avait déjà inventé 
un assembleur) chez le grand rival 
d’IBM : le constructeur Univac. Mais 
il est incontestable que Fortran mérite 
le rang de premier, à cause de son 
immense succès commercial, de même 
qu’Apple restera dans l’histoire 
comme Île créateur du micro- 
ordinateur en dépit des machines 
(françaises) plus anciennes Micral et 
Alcyane. 


On comprend déjà sans doute que 
Fortran (FORmula TRANSslator, tra- 
ducteur de formules), avait essentiel- 
lement un but scientifique. La facilité 
qui consiste à écrire dans un pro- 
gramme une simple égalité comme : Z 
= 3 x COS (X-— Y), cache un travail 
important de la part de la machine : 


par exemple, il faut qu’elle sache 
d’abord calculer X-—Y avant d’en 
prendre le cosinus. Une telle analyse 
semblait, au début des années cin- 
quante, trop complexe pour pouvoir 
être exécutée en un temps convenable. 


Pour l’époque, c'était un problème 
considérable car le coût immense du 
matériel rendait les programmeurs 
très sensibles à la vitesse du calcul. 
John Backus, déjà auteur de l’assem- 
bleur Speedcode d’IBM, sut persua- 
der sa compagnie de créer, à la fin de 
1953, un groupe chargé d’exami- 
ner si, comme lui-même le croyait, 
l'écriture d’un langage capable de 
faire ces analyses syntaxiques à une 
vitesse raisonnable était possible. Par- 
fois, les historiens d’IBM ne citent 
même pas cette initiative qui devait 
pourtant jouer un rôle primordial 
dans la foudroyante ascension qui lui 
assure aujourd’hui le leadership 
incontesté en informatique. Le 10 
novembre 1954 était publié le premier 
descriptif du langage, aussitôt suivi 
par l'écriture effective d’un compila- 
teur et la mise au point de Fortran II. 


Une descendance 


très nombreuse 


Cette rapidité était due, en partie, 
aux qualités de l’IBM 704, notam- 
ment à ses registres pour index et sur- 
tout aux mémoires à tores de ferrites. 
Signalons en Passant que cette 
machine vit aussi la première ébauche 
de ce qui deviendra plus tard l’opera- 
ting System (système d’ exploitation) 
qui soulagera tant le travail incroya- 
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blement ingrat des programmeurs de 
l’époque passant leur temps à courir 
en tous sens pour gérer ‘‘à la main” 
mille tâches à la fois. 


On ne saurait faire la liste de toutes 
les innovations dues à Backus dès les 
premières versions .de Fortran: la 
plus grande partie des langages 
modernes en est issue (à l’exception 
peut-être de Lisp et de quelques autres 
spécialisés en intelligence artificielle). 
Relevons simplement la notion de 
boucle (DO) et celle de GOTO (qui 
fera par la suite tellement couler 
d’encre...). 


Le compilateur Fortran II devint 
commercial en avril 1957 dans la mai- 
son mère, mais Univac en sortira un 
en 1961 pour ses propres machines. Si 
Fortran III, né l’année suivante, resta 
dans les cartons, c’est surtout Fortran 
IV en 1962 qui assurera la première 
“vulgarisation” réussie de l’informa- 
tique. 


Il finira ses jours le 3 avril 1978, 
lorsque l’American National Standard 
Institute adoptera la norme ANSI 
définissant l’actuel Fortran V, plus 
connu sous le sigle ‘‘77*’, qui corrige 
avec un certain bonheur la plupart des 
absences ou lourdeurs des premières 
versions. Modernisé, sûr de perdurer 
par sa bibliothèque de programmes 
immense (un peu comme l’Apple II 
dans le domaine des micros), ce lan- 
gage historique est parti joyeusement 
pour une nouvelle carrière. 


Puisque tout, ou presque, est né de 
lui, souvent on connaît déjà une 
bonne partie de Fortran, sans le 


savoir. En effet, le Basic dit ‘‘stan- 
dard’’ en est, d’une certaine façon, un 
sous-ensemble simplifié. C’est donc 
par une comparaison père/fils que 
nous allons sommairement décrire les 
caractéristiques de base de la norme 
actuelle. 


 Essentielles : 
les étiquettes 


Si les programmes sont également 
constitués de lignes, le numérotage en 
est très sporadique. En pratique, on 
constate que seules quelques marges 
de la liste comportent des étiquettes, 
formées d’entiers se succédant dans 
un ordre quelconque. Ces labels ser- 
vent essentiellement aux fameux 
GOTO, aux boucles (où l’on ordonne 
d'effectuer l’instruction numérotée n), 
ainsi qu’aux formats de lecture et 
d'écriture que nous verrons plus loin. 
L'aspect extérieur des deux types de 
programmes est donc assez voisin, 
sans plus. 


Les opérations mathématiques et 
les fonctions usuelles sont pratique- 
ment les mêmes. La boucle FOR … 
NEXT s'écrit DO n I a, b, s (c’est-à- 
dire exécuter l’ordre décrit sous l’éti- 
quette n en faisant varier l’indice 
entier I de a à b, avec le pas s), suivi 
de CONTINUE pour passer de I à 
I+s. 


Les modalités de tests sont égale- 
ment très voisines : VOUS ne serez pas 


HA! Ha! PETITS PoLiSS0NS,. 
Vous L' AÎMEZ, BIEN CÉLLE-LR, HEIN © 
4L0RS VoisAiL ÉTAT UNE Fois 


ONCLE JOHN 
RACONTEZ-NOUS ENCORE, 
t Le Du FORTRAN ! 


2Ÿ} e F 
(ed 
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DANS UNE GRANDE 


surpris non plus par IF ..… THEN … 
ELSE … END IF. A vrai dire, sans le 
savoir, vous essayez là le Nouveau 
Fortran. Le tout premier du nom ne 
connaissait qu’un IF ‘‘arithmétique’’ 
de la forme IF fexp} p,q,r avec trois 
étiquettes p, q, r à utiliser respective- 
ment selon que l’expression sous exa- 
men était strictement positive, nulle 
ou négative. À cet IF ternaire s’était 
ajouté le IF ‘‘logique”’ dont voici un 
exemple : 
IF (GT. n 

(si I est plus grand que (greater than) 
J, faire n). 

Signalons aussi un GOTO calculé : 
GOTO (p,q,r,s) exp est l’équivalent 
du Basic ON exp GOTO p,q,r,s : exé- 
cuter p si l’expression vaut 1, q si elle 
vaut 2 et ainsi de suite. 


Peu doué pour 


traiter les textes 


Jusqu’à présent donc, peu de diffé- 
rences entre les deux langages, surtout 
depuis le toilettage de 77. Il en est 
encore à peu près de même en ce qui 
concerne les tableaux (jusqu’à sept 
dimensions), voire de la gestion des 
fichiers, séquentiels ou à accès direct, 
maintenant que OPEN et CLOSE ont 
fait leur apparition. Le maître a 
copié l’élève. 

Le traitement de chaînes de caractè- 
res est, comme on le sait, très diffé- 
rent d’un Basic à un autre. En For- 
tran, où il était très malaisé, pour ne 
pas dire inexistant, la norme ANSI a 
introduit des variables du genre A = 
‘BONJOUR’ (en Basic A$ = ‘‘BON- 
JOUR’) et l’opérateur de concaténa- 
tion //, comme dans ‘CAR’//‘NA- 
VAL’ ; maïs il n’y a pas d’équivalent 
imposé des très commodes LEFT$, 
RIGHT$ ou STRINGS$ de Microsoft. 


Peut-être croyez-vous, en fonction 
de ce qui précède, qu’un Basicophone 
peut donc entrer avec facilité dans un 
programme Fortran puisque tant de 
choses les rapprochent, surtout depuis 
77. C’est malheureusement très 
approximatif, car il reste deux singu- 
larités profondes, à vrai dire causes de 
difficultés importantes pour les débu- 
tants, qui font que ce langage restera 
toujours d’un abord aride : les décla- 
rations des variables et surtout celles 
des formats. 
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PETITE HISTOIRE DES LANGAGES 


DE FORT 


Les premières sont banales pour des 
Pascalophiles. Le Fortran utilise plu- 
sieurs types qu’ils reconnaîtront : les 
variables entières, réelles en simple 
précision, en double précision, les 
chaînes de caractères et les booléens 
(vrai ou faux logique). Particularité 
due à son origine mathématique, il 
possède aussi un type ‘‘complexe”? 
avec ses opérations : 
(a+ib)*(c+id) — 
ix(ad + bc). 

Comme en Pascal donc, il faut 
définir les types avec grande préci- 
sion, car Fortran est très maniaque. Si 
vous lui demandez de calculer A/B, 
où A=12 et B=13, il verra que A et 
B sont entiers, et répondra donc par 
un entier. Comme 12/13 est compris 
entre 0,923 et 0,924 il répondra que 
A/B est égal à 0, ce qui pourrait avoir 
quelques conséquences fâcheuses… 
(Pour éviter cette catastrophe, calcu- 
lez 12.0/13.0, ce qui fera tout rentrer 
dans l’ordre). 


Au début de chaque programme, 
on déclarera donc clairement qui fait 
quoi, avec une exception heureuse : 
toutes les variables dont le nom com- 
mence par 1, J, K, L, M ou N sont 
implicitement (sauf déclaration con- 
traire) de type entier. Par exemple, si 
BELL est un indicateur renvoyant 1 si 
l’ordinateur peut émettre des sons et 0 
en cas contraire, il sera souvent noté 
IBELL en Fortran, ce qui le rend 


(ac—bd) + 


entier. Plus généralement, on peut 
décréter par exemple (avec l’aide de 
l'instruction IMPLICIT) que tous les 
mots commençant par Z seront du 
type logique, etc. 


Il reste à dire quelques mots du 
cauchemar qu’est le concept de for- 
mat. En exergue du chapitre qu’il lui 
consacre dans son excellent cours de 
Fortran 77 (Éditions Masson), Patrice 
Lignelet cite avec humour Desmarets 
de Saiïnt-Sorlin : 

‘“‘Prophane, esloigne toy, j’entre dans 
ma fureur !”? 


Ces Jameuses 


cartes perforées.…. 


Calmons d’abord le jeu en dévoi- 
lant que, depuis 77, il existe heureu- 
sement un équivalent de INPUT,A 
sous la forme READ*,A (ainsi qu’un 
bien commode PRINT*,A). Mais 
avant ces formats libres, les 
entrées/sorties exigeaient de définir 
très précisément comment manipuler 
les données échangées. Toute une 
symbolique indique le type concerné 
— Î pour entier, F pour réel... —, le 
nombre de chiffres avant et après la 
virgule ; la lettre X désigne le nombre 
de blancs à insérer, etc. 


L'origine de cette rigueur typogra- 


Un exemple en Fortran 


Von un programme qui donne le maximum MA et le minimum MI d’une 

suite de 10 nombres entiers positifs inférieurs à 999999, écrits sur des cartes 
perforées placées dans le lecteur de la machine. Le premier de ces nombres est évi- 
demment à la fois le maximum et le minimum initiaux. Par le jeu de neuf fois deux 
comparaisons successives, on édite le maximum et le minimum absolus sur lPimpri- 


mante (sortie n° 6). 


J=1 

READ(S,14)MA 
MI=MA 
FORMAT(10X,I6) 
J=J+1 
READ(5,14)K 
IF(K.GT.MA)MA =K 
IF(K.LT.MI)MI =K 
IF(J.LT.10)GOTO20 
PRINT(6,15)MA 


FORMAT(LE MAXIMUM EST: ?,16) 


PRINT (6,17)MI 


FORMAT(LE MINIMUM EST: ’,16) 


STOP 
END 
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II A FORTRAN V 


phique ne laissant rien au hasard est 
évidemment historique : on la trouve 
sur ces fameuses cartes perforées qui 
furent longtemps les seuls périphéri- 
ques informatiques (même le banal 
écran de visualisation, apparu en 
1954, mit de longues années à se 
généraliser). 

Tous les anciens connaissent les célè- 
bres 80 colonnes : de 1 à 5 pour l’éti- 
quette, 6 pour un code d’impression, 
de 7 à 72 pour l’utilisation normale 
proprement dite, de 73 à 80 sans 
signification (jadis on y mettait un 
numéro d’ordre de la carte dans le 
paquet qui s’étalait trop souvent à 
terre, conformément aux lois de 
Murphy !). Par exemple, l'instruction 
READ(5,18)A,B,C, suivie de FOR- 
MAT(41X,F6.4,2X,13,7X,E3.2) sur 
une ligne précédée de l’étiquette 18, 
doit être décryptée de la manière sui- 
vante : 

+ le 5 (de READ) indique que quel- 
que chose sera lu sur le périphérique 
numéro 5 (c’était le lecteur de cartes 
sur les IBM 360) ; 

e cette lecture sera faite selon le for- 
mat explicité dans la ligne de label 
18 ; * 

+ dans le FORMAT, 41X indique 
que, au départ, 41 colonnes seront 
sautées (on passera donc directement 
à la colonne 42) ; 

e avec F6.4, le réel lu sera mis en 
mémoire sur six chiffres dont quatre 
après la virgule : s’il s’agit de pi = 
3,1415936535..., l’ordinateur retien- 
dra donc 03,1415 ; il écrira ce premier 
nombre dans la mémoire associée à la 
première variable du READ, A ; 

e 2X pour passer deux cases :; 

e 13 pour lire un entier à trois chif- 
fres à placer en B ; 

e 7X fait passer sept colonnes ; 

e E3.2 pour lire un réel à mettre dans 
C en écriture “scientifique” (E = 
exposant) avec trois chiffres dont 
deux après la virgule. 


Une telle précision est évidemment 
fort utile, par exemple, pour l’édition 
d'états comptables impeccables, mais 
son usage systématique était loin 
d’être partout justifié. Il a découragé 
bien des programmeurs. Peut-être 
d’autres prendront-ils le relais. 


André WARUSFEL 
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ENCHAÏÎNER SUR COMMODORE 


LA SIMULATION DE 


“CHAIN” 


Fe le premier numéro de LIST, nous 
avons exposé une méthode permettant de 
chaîner des programmes. En voici une nouvelle. 
Elle tente de combler une lacune du Basic du 
Commodore en simulant l'instruction de chainage 


CHAIN qui fait si cruellement défaut à cet 


ordinateur. 


Lorsque vous sollicitez de 

votre machine l’exécution 
immédiate d’un ordre, vous commen- 
cez certainement par taper au clavier 
la ligne de commande. Alors, vous 
appuyez sur la touche RETURN. Par 
exemple : LOAD ‘“‘titre””’, 8 suivi de 
RETURN. 


Quand cette validation est effec- 
tuée, le système consulte la partie 
mémoire contenant la ligne (en 
l’occurrence, il s’agit de la mémoire 
écran), et tente d’exécuter l’ordre 
qu’elle est censée contenir. Si rien ne 
s’y oppose, l’exécution se produit aus- 
sitôt. Dans le cas contraire, c’est un 
message d’erreur qui apparaît. 


Forts de cette constatation, nous 
pourrions imaginer d’inscrire par pro- 
gramme sur l’écran la ligne de com- 
mande, et de la valider aussitôt, si 
possible sans intervention manuelle. 
L'écriture d’une ligne de commande 
en mémoire d’écran est très facile à 
obtenir. On tapera, par exemple : 
100 PRINT‘‘LOAD'’’;CHRS(34); 
“titre”; CHR$(34);‘*,8”’ 
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Mais comment valider la ligne ainsi 
affichée ? En fait, le problème peut 
être résolu aisément. Lors de l’appui 
sur une touche, trois phénomènes se 
produisent : 

e le code de la touche pressée appa- 
raît dans le tampon-clavier ; 

e un compteur spécialisé est incré- 
menté, indiquant le nombre de carac- 
tères présents dans le tampon-clavier ; 
e le symbole correspondant à la tou- 
che pressée s’affiche à l’écran. 


Le tableau des adresses indique, 
pour chaque machine utilisée, les 
adresses de mémoire concernées par 
les deux premiers phénomènes. 


Dix octets seulement sont disponi- 
bles dans le tampon-clavier ; nous 


devrons donc nous en contenter. Mais 
notons toutefois que le remplissage du 
tampon-clavier et la mise à jour du 
compteur associé pourront s’effectuer 
aussi bien par l’appui direct sur les 
touches que par des POKESs judicieu- 
sement placés dans un programme. 
On peut l’observer en tapant, en 
mode direct, la ligne POKE 631,147: 
POKE 632,13:POKE 198,2 et en la 
validant par un appui sur RETURN. 


 Programmons 


Pourquoi cela ? Nous avons placé, 
à la première adresse du tampon, le 
code de l’effacement d’écran 
(CHR$(147)). Nous avons placé à 
l’adresse suivante le code de 
RETURN (CHRS(13)); et enfin, 
nous avons mis à jour le compteur, en 
indiquant à l’adresse concernée la pré- 
sence de deux caractères. L’appui sur 
RETURN a rempli le tampon-clavier, 
puis a provoqué sa remise à zéro et 
l’affichage des caractères qui s’y trou- 
vaient. L’écran s’est donc effacé. 


Tableau des adresses 


CBM 3/4/8000 


VIC 20 


Tampon-clavier 


623 à 632 


631 à 640 


Pointeur 


LIST-PAGE 39 


Pourquoi, dès lors, ne pas imaginer 
de positionner de cette façon le cur- 
seur sur la ligne à valider (que nous 
aurions auparavant inscrite à l’écran), 
puis d’envoyer tout simplement le 
code du RETURN dans le tampon- 
clavier ? 


Composons le programme ci- 


dessous (attention, les adresses sont 
celles des VIC et C.64) : 


disquette (ou la cassette) se remet à 
fonctionner, chargeant — comme 
nous l’espérions — le programme sui- 
vant. Le RUN est ensuite validé sans 
intervention de notre part. Notez que 
nous avons pris la précaution de le 
placer à l’endroit exact de la réappari- 
tion du curseur après le LOAD. Un 
simple LIST nous confirmera la pré- 
sence en mémoire du second pro- 


lant ayant cette forme simplifiée : 
10 REM (début du programme appe- 
lant) 


20 C=C+1 
30 IF C=1 THEN LOAD 
“prog1””,8,1 


40 REM (suite du programme) 
50... 


Il est important de ne pas omettre 


le ‘,1” de la ligne 30, faute de quoi 


10 PRINT ‘‘FOR Q=0 TO 20:PRINT Q::NEXT” 


20 POKE 631,19 


30 POKE 632,13 
40 POKE 198,2 


:REM CODE DE ‘HOME’ 
:REM CODE DE ‘RETURN 


‘REM 2 CARACTERES DANS LE TAMPON 


Et lançons-le par le RUN habituel. 


Parfait, ça marche : nous venons 
de faire exécuter un programme par 
un autre programme... 


Disquette 


ou cassette ? 


Ayant maintenant en mains tous les 
éléments de la réussite, résumons par 
un exemple efficace les secrets du pro- 
blème, en essayant le court pro- 
gramme ci-dessous : 

10 REM programme appelant 

20 REM suite du programme 

30 REM fin du programme 

40 PRINT CHR$(147);‘‘LOAD”’; 

CHR$(34);‘‘PROG2’’;CHRS(34) 

ERA 
50 PRINT:PRINT:PRINT:PRINT 
60 PRINT ‘‘RUN'’ 

70 POKE 631,19:POKE 632,13: 
POKE 633,13 

80 POKE 634,13:POKE 635,13: 
POKE 636,13 

90 POKE 198,6 

99 END 


Attention : si vous utilisez un 
magnétophone, le ‘‘,8”” de la ligne 40 
doit être remplacé par ‘‘,1””. Sauve- 
gardons ce premier programme sur 
disquette ou cassette, selon le cas, 
puis après un NEW, composons le 
programme qui sera appelé par le pré- 
cédent : 

10 REM programme appelé 
20 FOR Q=0 TO 20:PRINT Q;: 

NEXT 

30 END 


Sauvegardons ce second pro- 
gramme, sous le titre PROG2. Cela 
étant fait, rappelons en mémoire le 
premier programme, et lançons-le par 
le RUN traditionnel. Comme prévu, 
les messages des lignes 40 et 60 s’affi- 
chent en haut de l’écran, tandis que la 
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gramme, et la disparition totale du 
précédent. 

Cette seconde méthode présente 
l’avantage d’éviter une manipulation 
délicate des pointeurs de mémoire. 
Elle permet aussi de charger successi- 
vement, et sans problème, des pro- 


: grammes de longueur quelconque. Sa 


mise en œuvre est donc très simple. 
Malheureusement, elle interdit totale- 
ment le passage de variables d’un pro- 
gramme à l’autre. Sauf si le pro- 
gramme appelé est un programme en 
langage-machine qui ne détruira pas 


‘‘progl’”” viendrait recouvrir et 
détruire le programme appelant, avec 
les inconvénients que vous devinez ! 
Le fonctionnement est alors le sui- 
vant : lors du premier lancement du 
programme, C prend la valeur 1. La 
ligne 30 est donc exécutée, et le pro- 
gramme en langage-machine ‘‘progl”” 
est mis en mémoire. Ceci étant fait, le 
programme redémarre automatique- 
ment en ligne 10 sans qu’il soit néces- 
saire de taper un second RUN. Quant 
à ‘“‘progl’”’, implanté suffisamment 
haut en mémoire, il n’a pas détruit les 


ON JEU 
D'ENFANT | 


les pointeurs de mémoire du pro- 
gramme appelant. 


Sur un écran couleurs, si vous pre- 
nez la précaution de faire des afficha- 
ges de la même couleur que le fond, 
ceux-ci deviendront invisibles, mais 
l’exécution continuera tout à fait nor- 
malement. Vous rendrez ainsi plus 
discret le processus de chaînage de vos 
programmes. 


S’il s’agit enfin de chaîner un pro- 
gramme en langage-machine, vous 
pouvez utiliser un programme appe- 


| AVEC UN TAMPON 


CLAVIER COMME 


VOUS ASSURE QUE 
CHAÎNER UN 
PROGRAMME EST , 


variables et C prend maintenant la 
valeur 2. La ligne 30 n’est donc plus 
exécutée, et le programme appelant se 
poursuit normalement. 


Munis de ces éléments essentiels, 
vous pourrez ‘‘dynamiser”” vos pro- 
grammes, et ne plus trop souffrir du 
manque de mémoire de votre 
machine. À vous de jouer mainte- 
nant ! 


Jean-Pierre LALE VÉE 
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LIST À TESTÉ 


LE BASIC DU HP-71B 


DU CONCENTRÉ 
D'ORDIN ATEUR 


C "EST une calcultrice scientifique élaborée, 

un ordinateur de poche programmable en 
Basic, un petit joyau de Hewlett Packard qui a 
réussi à rassembler en un volume vraiment réduit 
une belle panoplie de possibilités. Maïs cela se 
paie : 5 100 FF fic pour la version de base. 


Non, le mode CALC dans le- 

quel sont réalisés tous les cal- 
culs n’utilise pas la notation polonaise 
inverse (très) chère au cœur des incon- 
ditionnels d’'HP, mais une classique 
notation AOS : « Je calcule comme 
c’est écrit, 1 + 1 vaut 2.» Rentrée 
dans le rang, donc, pour le HP-71B ; 
la machine n’en sera que plus accessi- 
ble car, il faut bien le dire, la notation 
algébrique semble plus ‘‘naturelle”” à 
bien des utilisateurs. 


Mais tant qu’à choisir cette nota- 
tion, autant l’améliorer. On donne ici 
un bon point à HP qui semble avoir 
soigné tout particulièrement le 
système de gestion des erreurs : il est 
toujours possible de récupérer d’un 
coup l’expression qui vient d’être cal- 
culée et, éventuellement en cas 
d’erreur, de la corriger. 


Mieux, un long calcul peut être exé- 
cuté pas à pas avec la touche SST : 1 
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+ 3*SIN (2/3, donnera successive- 
ment les calculs de 2/3 puis (refermer 
la parenthèse) SIN (2/3), 3*SIN (2/3) 
et, enfin, le calcul général. Les résul- 
tats sont affichés sur 12 chiffres signi- 
ficatifs maïs les calculs sont effectués 
avec 15 chiffres. L’exposant varie de 
—499 à 499 : l’abondance ne nuit 
pas. L’opérateur contrôle trois types 
d’arrondi : OPTION ROUND ZERO 
(vers 0), POS (à la valeur supérieure) 
et NEG (à la valeur inférieure). Qua- 
tre formats de sortie sont disponi- 
bles : FIX (fixe), SCI (scientifique), 
ENG (ingénieur) et STD (virgule flot- 
tante). 

Une constatation s’impose donc : le 
HP-71B vise essentiellement des usa- 
ges scientifiques et sa force réside 
dans sa puissance de calcul. 


Une pile de cinq niveaux d’instruc- 
tions est employée pour conserver les 
cinq derniers calculs effectués (on 


peut l’étendre jusqu’à 16 niveaux). 
C’est alors un jeu d’enfant que de 
retrouver d’anciennes expressions afin 
de les exécuter, éventuellement en les 
modifiant. 


| Des fonctions 


_ très spéciales 


Si l’on vous dit CEIL (X), à quoi 
pensez-vous ? Certainement pas 
immédiatement au calcul du plus petit 
nombre entier supérieur ou égal à X... 
Deux fonctions “‘partie entière””, INT 
et IP, retournent respectivement, la 
partie entière (mathématique) et la 
partie du nombre à gauche d’une vir- 
gule. 


Savez-vous traiter une erreur 
mathématique à la mode du HP- 
71B ? Bien pratique cependant est la 
possibilité (déclarée avec l’instruction 
DEFAULT) de donner à une division 
par zéro... la valeur par défaut de 
9,999...9 E 499 ou ‘l'infini’ selon 
HP (Inf). De même, inutile d’hésiter, 
LOG(0) donne —Inf (moins l'infini). 

La panoplie des fonctions statisti- 
ques est complète avec les opérations 
moyenne, écart-type, régression 
linéaire, corrélation, valeur 
probable. Et tout cela sur un tableau 
dont la taille peut comporter jusqu’à 
15 variables ! Le statisticien trouve là 
l'instrument de poche sans doute le 
plus puissant à ce jour. 
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LIST À TESTÉ 


LE BASIC DU HP-71 B 


Des petites dimensions 
pour de grandes 
applications 


C’est l’ordre EDIT qui permet 
d’accéder à l’éditeur de programmes 
Basic. La taille de la mémoire vive 
disponible est alors d’environ 16,5 
Koctets. Chaque programme, car plu- 
sieurs peuvent cohabiter pacifique- 
ment dans la mémoire, est défini par 
une ligne d’état comportant son nom, 
son type (on les verra tous), sa taille 
et sa date. Un dernier paramètre pré- 
cise les conditions d’accès (protégé ou 
non,..) d’un utilisateur au pro- 
gramme. 


_ Un Basic 


puissant 


Les types des fichiers (on dira 
fichier de préférence au trop limitatif 
mot de programme) sont de différents 
ordres. BASIC pour les programmes 
en .. Basic, BIN et LEX pour le 
langage-machine (par exemple le 
module du langage Forth optionnel), 
DATA pour les données, TEXT (sans 
commentaire) et SDATA pour des 
fichiers à échanger entre HP-71B et 
HP-41C (via HP-IL). 

Toutes les touches du clavier sont 
redéfinissables, et ces jeux de touches 
sont mémorisés dans des fichiers 
KEYS. Un mode spécial (USER) 
active les touches redéfinies (avec 
DEF KEY). 


Dans le Basic lui-même, on 
retrouve toutes les fonctions classi- 
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ques telles IF... THEN...ELSE, 
l’adressage symbolique (donner des 
noms à des lignes de programmes), 
ON...ERROR avec ERRL (n° de 
ligne erroné), ERRM$ (message 
d'erreur) et ERRN (n° de l'erreur). 
Dans le traitement des erreurs, donc, 
le HP-71B est bavard. Très bavard 
même car il ne présente pas moins de 
97 messages d’erreur différents. 


Fiche technique du HP-71B 


Prix : environ 5 100 FF tte 

Dimensions : 190 x 97 x 12 mm 

Poids : 340 g 

Mémoire vive : 16 955 octets pour l’uti- 
lisateur (Version de base) extensi- 
ble par modules de 4 Ko (max. 
33,5 Ko pour 4 modules). 
Mémoire continue répartie entre 
fichiers et variables au fur et à 
mesure de leur utilisation 

Mémoire morte : 64 Ko 

Alimentation : 4 piles bâtons alcalines 
micro de 1,5 V 

Langage : Basic d’origine, Forth et As- 
sembleur par modules enfichables 

Affichage : fenêtre de 22 caractères sur 
une ligne virtuelle de 96 caractères 

Pile de commande : 5 niveaux 

Périphérique : interface HP-IL, lecteur 
de cartes magnétiques, interface 
RS 232 C, lecteur de cassette, 
imprimante, interface-vidéo, 
GPIO, HP-IB, série 80 


Citons au passage les fonctions 
AND, OR, XOR et NOT d’algèbre 
booléenne, AUTO pour la numérota- 
tion automatique des lignes, 


RENUMBER qui renumérote un pro- 
gramme, KEYDOWN pour la saisie 
d’une pression de touche, PUT et 
KEY$, enfin, pour envoyer et saisir 
des caractères dans la mémoire tam- 
pon du clavier. 


Les mémoires du HP-71B, dites 
‘‘variables”’, sont à la fois un point 
faible et fort. On regrettera la limita- 
tion des tableaux de chiffres à deux 
dimensions. Pire : une seule dimen- 
sion pour les tableaux de caractères. 


Heureusement, on dispose de varia- 
bles locales, indépendantes pour cha- 
que sous-programme qui, avec 
CALL, SUB et ENDSUB permettent 
de sauvegarder des contenus de varia- 
bles avant d’exécuter des sous- 
programmes puis de les récupérer au 
retour. 


Les noms de variables sont limités à 
une seule lettre ou une lettre suivie 
d’un chiffre. Calculez vous-même le 
nombre réduit de ces noms. Pour y 
remédier, on devra user à profusion 
des variables locales des sous- 
programmes. Cela rendra peut-être 
plus structurée 1a rédaction des pro- 
grammes ; c’est bien, mais y être con- 
traint est tout de même frustrant. 


Ceci étant, le peu dont on dispose 
est très correctement géré. OPTION 
BASE définit pour des tableaux la 
valeur de départ de l’indice (0 ou 1) ; 
l'emploi d’une variable de tableau 
(par exemple : C(1,1)= 12) crée auto- 
matiquement un tableau de dimen- 
sions 10 X 10 et l’ordre DESTROY 
permet d’éliminer sélectivement cer- 
taines variables. Un tableau peut 
même être redimensionné ultérieure- 
ment sans perte de ses contenus. 


Bien des caractères 


ffiche 


Avec l’afficheur à cristaux liquides 
de 22 caractères, on retrouve l’effica- 
cité. Chacune des 132 colonnes de 8 
points de l’afficheur peut être gérée 
séparément et l'utilisateur peut se 
créer un jeu de caractères particuliers 
(codes 128 à 255). Enfin, la variable 
spéciale DISP$ contient en perma- 
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GOTO 500 exécute la ligne 500 cinq 
secondes plus tard. 


Une batterie de 128 flags (drapeaux 
ou indicateurs binaires) gère l’état du 
système. Les trois quarts sont accessi- 
bles à l’utilisateur qui en use selon ses 
besoins, par exemple : le flag —1 
supprime les messages d’erreur. Les 
flags O à 63 sont sans signification 
pour le système. 


Malgré quelques restrictions tout à 
fait surprenantes, le Basic du HP-71 
est l’un des plus puissants disponibles 


LES TESTS DE LIST 


Ces tests ont pour vocation de tester la rapidité de tra- 
vail du HP-71B. Bien sûr, ils sont forcément restrictifs, et 
la rapidité n’est pas toujours le critère premier de l’effica- 
cité. C’est dans LIST n° 1 que le lecteur trouvera la justi- 
fication du choix de ces tests. 


Tous les tests portent sur une boucle Basic qui effectue 
10 000 fois la même opération. Les temps donnés sont 
exprimés en secondes. 


Test 


1 - Boucle vide 95 sur une machine de cette taille. Mais 
2 - Sous-programme 206 plus encore que le Basic, c’est la puis- 
3 - Calcul matriciel 97 sance de calcul qui se révèle d’un 
4 - Chaînes de caractères 266 attrait exceptionnel, tant pour les 
5 - Arithmétique 262 mathématiciens que pour les statisti- 
6 - Calcul scientifique 823 (15 chiffres) ciens… fortunés. 

7 - Affichage 1 146 

8 - Écriture fichier 420 (mémoire) 


9 - Lecture fichier 


200 (mémoire) Olivier ARBEY 


Jean-Christophe KRUST 


nence les 22 caractères présents sur 
l’afficheur. 


Le jeu de caractères est très com- 
plet : outre les majuscules et les 
minuscules, on trouve des caractères 
accentués et des lettres grecques. 


Enfin ! Un sommet est atteint dans 
la gestion des cristaux liquides. 
Avant, on se tordait le cou pour bien 
les lire, puis une petite molette est 
venue apporter une possibilité de 
réglage de l'intensité (contraste) de 
l’afficheur. Avec le HP-71B ce 
réglage est réalisé par voie logicielle 
avec l'instruction CONTRAST, et 
c’est très réussi. 


Classiques, mais fondamentales 
pour les esprits curieux, sont les fonc- 
tions PEEKS$ et POKE ; ce qui l’est 
moins c’est l’obligation de travailler 
sur des demi-octets inversés ! (4841 
est en fait codé 4148). 


La gestion des fichiers DATA, 
TEXT et SDATA réalisée en mémoire 
est assez performante. Leur taille 
s’ajuste automatiquement au fur et à 
mesure que l’on introduit les informa- 
tions, données ou textes, qu’on peut 
évidemment relire ensuite à volonté. 


Une horloge interne tient à jour 
deux variables spéciales TIME (heure) 
et DATE dont l'utilité est évidente. 
De plus, à la manière d’une HP-41C 
avec module TIME, une interruption 
temporelle peut être programmée. 
Ainsi, tel jour à telle heure, un pro- 
gramme peut s’exécuter automatique- 
ment (y compris si le HP-71B est 
éteint). D’autres interruptions, tenant 
du compte à rebours, sont program- 
mables en Basic : ON TIMER # 1,5 
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+ ALGORITHMIQUE 


L'ALGO DU LOG 


MAGINEZ que la fonction logarithme de votre calculatrice 
ou de votre ordinateur ne marche plus. Comment feriex-vous pour l'obtenir 


tout de même en n'utilisant que 
Cette question s'est d'ailleurs pos 


les quatre opérations arithmétiques ? 
ée aux concepteurs de langages puisque 


les processeurs ne connaissent que les opérations de base. 
Aussi certains des algorithmes présentés ici sont utilisés à l’intérieur 


de vos ordinateurs ou de vos calculatrices. 


Pendant des siècles, l’astro- 

nomie, la navigation, la physi- 
que... ont fait appel à des calculs très 
longs et très difficiles. 


Utilisant ses heures de loisir à la 
recherche de méthodes nouvelles de cal- 
cul numérique, John Napier, baron de 
Merchiston (1550-1617), fit paraître en 
1614 une Description de l’admirable 
table de logarithmes (Mirifici Logarith- 
morum Canonis Descriptio). Cet 
Ouvrage va permettre de simplifier 
« admirablement » les calculs péni- 
bles : grâce aux logarithmes, les multi- 
plications ou les divisions deviennent des 
additions ou des soustractions. 


Cette découverte est basée sur 
l'observation de points mobiles, les uns 
évoluant comme la suite algébrique 0, 
1, 2, 3, .… et les autres comme la suite 
géométrique 1, 2, 4, 8, … Napier a 
alors cherché un lien entre ces deux sui- 
tes. Il l’a trouvé en constatant que cha- 
que terme de la seconde suite était égal 
à 2 élevé à la puissance du terme de 
même rang de la première suite : 
2=1,2:=2,22=94,2=8, … 

Si on appelle 2 le «nombre de 
base », on peut dire ce qui précède 
autrement : chaque terme de la suite 
algébrique est le logarithme en base 2 
du terme de même rang de la suite géo- 
métrique. Soit, 0 est le logarithme de 2 
en base deux, 1 est le logarithme de 4 
en base deux, 3 est le logarithme de 8 
en base deux, .… 

En généralisant, dire que a est le 
logarithme de c en base b revient à dire 
que b à la puissance a est égal à c. Ce 
qui s’écrit mathématiquement : 
a = log,c est équivalent à b® = c. 


Les propriétés du logarithme qui per- 
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mettent de passer de la multiplication à 
l’addition ou de la division à la sous- 
traction sont : 

log, (axc) = loga + loge et log, 
(a/c) = log,a — log,c. 

Pour les calculs, deux bases de loga- 
rithme ont été retenues : la base dix 
(logarithme décimal) et la base e (loga- 
rithme népérien ou naturel). Ce nombre 
e (environ 2,7182818) possède des pro- 
priétés valables dans différents domai- 
nes mathématiques (en particulier le 
calcul infinitésimal). 


Le logarithme népérien (ou naturel) 
permet de calculer tous les autres loga- 
rithmes. En effet, le logarithme en base 
b d’un nombre x est lié au logarithme 
népérien par la formule : log, x = 
In x/In b (In représente le logarithme 
népérien). 

Le terme de « naturel » appliqué au 
logarithme népérien se comprend mieux 
lorsque l’on étudie la fonction loga- 


JE M'EXCUSE, MAÏS J'Aï 
OUBLIÉ DE VOUS DIiRE 

QUE JE NE SAÏS PAS NON 
PLUS FAIRE UNE ADDITiON 


rithme népérien et sa fonction inverse, 
la fonction exponentielle. Cette der- 
nière est la seule fonction d’un nombre 
qui ait un degré de variation par rap- 
port à ce nombre égal à la fonction 
elle-même (en d’autres termes, c’est la 
seule fonction égale à sa dérivée). 


D'après 


la définition. 


La première méthode que nous abor- 
dons peut être facilement comprise à 
partir de la définition : y = log, x x 
= b” (ésignifie « est équivalent à »). 
Cette méthode utilise l'écriture déci- 
male de y, Y = Yo, Y1 Y2 Ya... en suppo- 
sant ici que y est positif et donc que x 
est supérieur à 1. Nous avons : 
X = b’o*1/10»:/100+y;/10008.-. OÙ Yo, V1, Ya, 
y:,.. sont des chiffres variant de 0 à 9. 
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nn mt 


Cela peut se récrire ainsi: x = be 
X bt1/10)Gi#»3/10,/100#-:.) 

Le second terme étant nécessairement 
inférieur à b, nous pouvons calculer yo 


qui sera le plus petit nombre pour 
lequel x, = x/b” deviendra inférieur à 
b. 


Une fois yo trouvé, en posant xo° = 
(x/bre)!° = bri72/10»3/100$. on s’aper- 
çoit que y, se trouvera de la même 
manière que Yo. Puis Y2, Ys, etc. 


Cela donne le court programme 
Basic suivant : 
10 INPUT « Nombre et Base » ; X, B 
20 Y = 0 
30 IFX >=B THEN X=X/B:Y = Y + 
1 : GOTO 30 
40 PRINT Y ; 
50 X= XX: Y=XIX=XxX:X = XaX: 
X=XxY 
60 GOTO 20 
La ligne 50 est le calcul de x à la 
puissance 10 avec seulement quatre 
multiplications. La ligne 40 imprimera 
un par un tous les chiffres de log;x. 


La précision 


dépend de la machine 


Ce programme qui boucle indéfini- 
ment peut donc vous donner une infi- 
nité de chiffres. Attention : les chiffres 
réellement significatifs sont en rapport 
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avec la précision de votre machine. On 
peut estimer par exemple que si votre 
Basic calcule sur 8 chiffres, seuls les 6 
premiers donnés par le programme sont 


Courbe 
représentative de la 
fonction logarithme 


bons. Quant aux suivants, ils peuvent 
être une excellente source de nombres 
aléatoires. 


La méthode 


des premières tables 


Comme nous l’avons déjà dit, cette 
méthode n’est valable que pour x > 1. 
On peut toutefois l’utiliser pour tout x 
compris entre 0 et 1 en sachant que : 
logex = — log,(1/x). Il vous suffit 
donc de rajouter la ligne : 

15 IF X<1 THEN X=1/X : PRINT 
«=»; 

Et pour être complet, il vaut mieux 
rajouter : 

12 IF X<=0 THEN PRINT ‘‘Impossi- 
ble”’ : END 


Lorsque, en 1617, Henry Briggs 


(1556-1631) publia des tables de loga-. 


rithmes à 14 décimales, il n’avait à sa 
disposition ni calculatrice ni, a fortiori, 
ordinateur. Ce travail colossal a été 
rendu possible grâce à une méthode 
basée sur la formule : log, xx: = 
(logix: + log:X2)/2. 


Outre les quatre opérations, nous 


Méthode de 
Briggs : approcher 
X par xj ef X9 


ÿ 


supposons donc que nous avons à notre 
disposition la racine carrée. 


La méthode de Briggs est valable 
pour 1<x<b. Il démarre avec x, = 1 et 
x = b. Ce qu’on peut encore écrire : 
log,x, = 0 et log,x, = 1. Puis il cher- 
che à « serrer » le plus finement possi- 
ble x entre x, et x2. 


Ainsi si Vx,x, est inférieur à x, alors 
x, croît en devenant /x;x, (sinon x; 
décroît en devenant x:x2). Bien sûr, 
log;x, (ou log,x2) est remis à jour par la 
formule rappelée plus haut. 


Lorsque x, et x, deviennent assez 
proches, on peut considérer que log,x = 
log, Vxix2. D’où le programme : 

10 INPUT « Nombre et Base » ; X, B 

20 X1=1 : Li1=0 : X2=B : L2=1 

30 X3=SQR(XI+X2): L3 = (LI +L2)/2 

40 IF X>X3 THEN X1=X3 : Li=L3 
ELSE X2=X3 : L2=L3 

50 IF X2—-X1>1E-8 THEN 30 

60 PRINT (L1+L2)/2 


Vous remarquerez que le 1E—8 de la 
ligne 50 n’est autre que la précision 
demandée. Cette précision doit être 
moins bonne que celle de la machine. 


Pour que le programme puisse aussi 
marcher pour x>b, on utilise le fait que 
log;b“x = k + log,x. Il suffit donc de 
rajouter ces deux lignes : 

17 K=0 

18IF X>B THEN X=X/B: 
K=K +1 : GOTO 18 

et de modifier la ligne 60 ainsi : 

60 PRINT K+(Li+L2}/2 

Et pour que le programme fonc- 
tionne aussi pour les x inférieurs à 1, 
les lignes 12 et 15 de la première 
méthode peuvent être utilisées. 


En se servant 


d’une hyperbole 


Vous savez peut-être que In x = 
f:(A/Ddt. Cela signifie en clair que la 
surface hachurée dans le dessin ci- 
dessous vaut exactement In x. 


La valeur de l'aire 
bachurée est celle de 
In x 


s=£ 


LIST-PAGE 45 


ALGORITHMIQUE 


_ L'ALGO DU LOG. 


Plusieurs méthodes utilisent cette 
propriété. Celle présentée ici encadre la 
courbe y = 1/x entre cordes et tangen- 
tes. La surface est partagée en 2" trapè- 
zes aux abscisses 1, Xo, Xé, X8, ..., X2"=X. 
L'intérêt de ce partage est que les tra- 
pèzes ont même aire. Ainsi calculons 
l'aire du trapèze T, limité par xÿ’ et x 
et construit sur corde : aire de T, = 
(Xo—xo ') X (1/xi+1/xÿ1)/2 = 


(1+Xo—1/Xo—1)/2 = (xo— 1/Xo)/2. 


L’aire du trapèze T; étant indépen- 
dante de i, nous avons bien T, = T, = 
… —= T;. = (Xo — 1/xo)/2. 


Nous n’allons pas expliquer le détail 
de la méthode, mais son principe vous 
a été présenté. Et vous avez maintenant 
les éléments nécessaires pour pouvoir 
l’approfondir si vous le désirez. 


Cette méthode assez complexe donne 
pourtant un court programme : 
10 INPUT « Nombre » ; X 
20 Z=(X+1/X)/2 : Y=(X-1/X)/2 
30 Z=SQR((1+2Z)/2) : Y=Y/Z 
40 IF ABS(1-Z)>1E-8 THEN 30 
50 PRINT Y 

Le Y en sortie est un logarithme 
népérien. Nous vous rappelons que si 
vous désirez le logarithme décimal, il 
suffit de mettre PRINT Y/2.3025851 
en ligne 50 puisque log;x = In x/In b. 


L’énorme intérêt de la méthode de 
l’hyperbole est son côté général. En 
effet, essayez le même programme en 
remplaçant uniquement le calcul initial 
de Z et Y de la ligne 20 par Z=0: 
Y=2 (la ligne 10 ne sert plus, le calcul 
étant indépendant de X). Et 
qu’obtenez-vous ? Mais oui, le Y de 
sortie n’est autre que le très célèbre 
nm = 3,14... ! Il n’y a plus guère de Tap- 
port avec les log ! 
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Selon le contenu de la ligne 20, ce 
programme est capable de calculer tou- 
tes les fonctions réciproques trigonomé- 
triques et hyperboliques. 

Ainsi 20 Z = SQR(I1-X%X) : Y = 
X permet de calculer Arc sin x, ce qui 
explique mieux le n trouvé précédem- 
ment. 

Et avec 20 Z = X:Y = SQR 
(—-X+X) vous obtiendrez Arc cos x. 

Quant à 20 Z = SQR(1+X4X) : Y 
— X, cela donne Arg sh x. 


A vous d’en découvrir d’autres ! 


Les aires de T; et 
de T;+ ; sont égales 


Nous vous donnons maintenant l’une 
des méthodes les plus puissantes pour 
calculer les logarithmes. L'intérêt est 
dans l’absence complète de boucle, 
contrairement aux autres présentées 
jusqu'ici. Le résultat est donc obtenu 
directement et beaucoup plus rapide- 
ment, 


Voici in extenso le programme, sans 


JE est conace- 
mas 4e “Mmouverni 
fe moyeu de le 


aucune explication, cette dernière étant. 
complexe et sortant du cadre de cet 
article : 
10 INPUT « Nombre » ; X 
20 X1=3.1622777 
30 X2=(X-X1)/(X+X1) 
40 X3= X2+X2 
50 X4=0.17076579:X34X34X3 
+0.063802242:X34X3 
+0.12906789,X3 
+0.17338396 
60 Y=(X4:X34X3 + 0.289537734X3 
+ 0.86858893)+X2 + 0.5 
70 PRINT Y 


Ici, le Y de sortie est un logarithme 
décimal. Cela vous aidera-t-il de remar- 
quer que X1=\ 10 ? 

Sachez que cette méthode est réelle- 
ment employée à l’intérieur de certains 
Basics. 


Méthode complexe 


mais générale 


Le programme listé n’est valable que 
pour 1<x<10.- Pour qu’il soit valable 
dans le cas général, on peut utiliser les 
astuces déjà vues pour les autres 
méthodes. C’est-à-dire rajouter : 

12 IF X<0 THEN PRINT « Impossi- 
ble » : END 

15 IF X<1 THEN X=1/X: PRINT 
CE — »; 

17 K=0 

18IF X>10 THEN X=X/10: 
K=K+1 : GOTO 18 

et remplacer la dernière ligne par : 

70 PRINT K+Y 


Si vous voulez des logarithmes népé- 
riens et non des décimaux, faites plu- 
tôt : 

70 PRINT (K+Y})+2.3025851 

Nous ne vous avons pas montré ici 
toutes les méthodes existantes pour cal- 
culer des logarithmes. Toutefois, les 
quatre présentées ci-dessus ont été 
choisies de la plus simple à la plus 
complexe, et de la moins précise à la 
plus performante. 


Maïntenant vous saurez quoi faire si 
vous tombez en « panne de log ». 


Boris YARENITCH 
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RE ERES 


GESTION DE PROGRAMMES SUR APPLE II 


RAPPELER 
LE MENU 


UAND on réalise, sur un ordinateur, une application complexe, il est 

d'usage de la découper en sous-ensembles auxquels on accède par un 

menu général. S'il s'agit de programmes à 
indépendants, on a recours à un menu qui 
permet de choisir celui que l’on désire et 
qui le charge. Maïs il faut encore que ce 
dernier, une fois exécuté, rappelle en mémoire 
le menu, d'où un temps d'attente important. 
Nous allons voir comment diminuer ce temps de moitié. 


Comment faire pour qu’un Les pointeurs de l’interpréteur deux octets, poids faible-poids fort. 
q 


programme de menu ne soit 
pas chassé par celui qu’il appelle ? 
Le principe de base est simple : il suf- 
fit de pouvoir faire cohabiter deux 
programmes en mémoire. Le premier 
sera le programme de menu. Vous 
aurez à le charger une seule fois et il 
restera en mémoire jusqu’à la fin de 
l’application. Il appellera vos diffé- 
rents programmes secondaires. Une 
fois ceux-ci terminés, ils relanceront 
votre menu, sans qu’il soit besoin 
d’aucun accès au disque. 


Quand vous tapez la commande 
LOAD (ou RUN), l’interpréteur Basic 
ne charge pas votre programme 
n'importe où. Il se fie en effet au 
pointeur de début de programme (voir 
la table des pointeurs Basic dans 
l’encadré sur la mémoire-utilisateur), 
et il met à jour le pointeur de fin de 
programme. À l'exécution, il modifie 
les pointeurs d'occupation mémoire 
des variables. A vous de lui laisser 
croire qu’il est seul maître du jeu, 
tout en le mettant à votre guise ! 


Regardons tout d’abord les listes du 
programme « MENU » et du pro- 
gramme « CHOIX I ». 
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Basic sont inscrits en mémoire sur 


Programme de menu 
pour Applesoft 

Auteur Jacques Labidurie 
Copyright LIST et l’auteur 


10 REM PROGRAMME MENU 


100 HOME 

110 VTAB S: FRINT “1 -— CHOIX 1": 
VUTAB 7: PRINT "2 - CHOIX 2" 
: VUTAB 9: PRINT "3 - CHOIX 3 
"s VUTAB 11: PRINT "4 — CHOIX 
EU 

120 UTAB 17: HTAB 10: PRINT "UOT 


RE CHOIX ? "3: GET K$: PRINT 
K#ikK = VAL CK#): IF K © 1 OR 

K > 4 THEN PRINT CHR#$ (7): 
GOTO 120 


130 POKE 103, PEEK (105): POKE 1 
04, PEEK <i106): POKE PEEK ( 
108) + PEEK (104) * 256 - 1 
,0: PRINT CHRS (4)"RUNCHOIX 
"4 K$ 


Programme CHOIX 1 


10 REM PROGRAMME CHOIX{ 

Lt 3 

100 HOME : UTAB 4: PRINT "PROGRA 
MME DE TRAITEMENT DU CHOIX 1 


110 UTAB 20: PRINT "TAPER UNE TO 
UCHE POUR REVENIR AU MENU " 
: GET K& 

120 POKE 105, PEEK (103): POKE 1 
06, PEEK (104): POKE 103,1: POKE 
194,8: RUN 


3 


Dans le programme MENU, quand 
votre choix est fait, il faut donc met- 
tre à la place du pointeur DP (début 
de programme) les valeurs du poin- 
teur FP (fin de programme). Soit : 
POKE 103, PEEK (105) : POKE 104, 
PEEK (106). 


Leurrer 


 l’interpréteur 


Ne pas oublier également que le 
Basic tient absolument à ce que l’octet 
précédant la valeur de ce pointeur soit 
à 0. Pour cela, pas de problèmes : 
POKE PEEK (105) + PEEK (106) * 
256 — 1 , 0. Exécutez ensuite le RUN 
du programme de votre choix et 
l’interpréteur n’y voit que du feu. Il 
va prendre comme zone de charge- 
ment la place libre après votre pro- 
gramme MENU ; celui-ci sera donc 
conservé intact en mémoire centrale. 


Il s’agit maintenant, à la fin de 
CHOIX 1 de revenir automatique- 
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ment à MENU et ce, sans avoir à le 
recharger à partir de la disquette. Il 
vous faut donc rétablir les pointeurs 
DP et FP comme ils étaient aupara- 
vant. Où trouver la fin du programme 
MENU ? Relisez quelques lignes plus 
haut, c’est simplement le début du 
programme CHOIX 1. Et quelle est la 
valeur à mettre dans DP ? 


° mémoire-programme : 


. mémoire des tableaux ; 
e mémoire des chaînes de caractères. 


mémoire, 


s'étend vers le bas. 


Voici ces pointeurs : 


ple, pour obtenir l'adresse de début de 


fort »). A noter aussi : 
e l’octet DP-1 doit toujours être à 0 : 


Rappel sur la « mémoire-utilisateur » 


Le Basic Applesoft découpe la mémoire-utilisateur en différentes zones : 


< mémoire des variables simples et pointeurs de chaînes ; 


Les trois premières zones sont implantées au début de la méoire-utilisateur 
(80800 en hexadécimal, soit 2048 en décimal) et s’étendent vers le haut de la 


La quatrième, à l'inverse, part de la plus haute adresse ($95FF = 38399) et 


En page O0 ($0000 à S00FF) se trouvent les différents pointeurs permettant de 
connaître les implantations de ces zones. Toutes ces adresses sont codées sous la 
forme habituelle sur Apple : octet de poids faible, puis octet de poids fort. 


Adresse en 
hexadécimal 


: Début de la zone des chaînes de caractères 
HIMEM ..... : Fin de la zone des chaînes + 1 


La récupération de toutes ces valeurs à partir du Basic est très simple. Par exem- 
programme, il suffit de demander PEEK 


(103) + PEEK (104) « 256 (n’oubliez pas la codification « poids faible - poids 


e un programme Applesoft se termine toujours par trois 0 $ 
+ LOMEM, enfin, pointe normalement $ur le dernier zéro + 2; 


La connaissance de ces pointeurs a de multiples utilisations. Vous pouvez ainsi 


Si vous n’avez fait aucune manipu- 
lation hasardeuse avant de commen- 
cer, c’est bien évidemment la valeur 
standard d’implantation d’un pro- 
gramme Basic sur Apple II : $801 en 
hexadécimal soit 2049 en décimal. 
Nous trouvons donc à la ligne 120 
d’une part la restauration de FP : 
POKE 105, PEEK (103) : POKE 106, 


Adresse 
en décimal 


restaurer un programme malencontreusement écrasé par un NEW malheureux, 
réserver une zone pour un sous-programme assembleur qui sera ainsi sauvé en 
même temps que le programme Basic, insérer dans votre programme Basic des ins- 
tructions qui modifient le programme lui-même, etc. 


Plan de la mémoire-utilisateur 


DP . 

Mémoire Programme 

LOMEM Zone variables simples et 
pointeurs de chaînes 

DT 

Zone des tableaux 

D | Mémoire libre 


Zone des chaînes de caractères 


LIST - PAGE 48 


PEEK (104) et d’autre part celle de 
DP : POKE 103, 1 : POKE 104, 8. 


Si vous n’utilisiez pas cette valeur 
standard, il aurait fallu conserver la 
valeur du DP de MENU dans des 
zones ne risquant pas d’être détruites, 
donc non utilisées par Applesoft. Par 
exemple, les adresses 7 et 8. Donc, 
rajouter à MENU : POKE 7, PEEK 
(103) : POKE 8 , PEEK (104). 


Bien sûr, il ne faut pas oublier, 
dans ce cas, de modifier la ligne 120 
de CHOIX 1 : POKE 103, PEEK (7) : 
POKE 104 , PEEK (8). 


Examinons les valeurs des diffé- 
rents pointeurs Basic après chaque 
pas de notre exécution. Au départ, le 
pointeur DP est à $801, et FP à $804. 
Il n’y a rien de présent en mémoire. 
Que remarque-t-on ensuite ? 


Mille choses 


à faire 


Après le chargement de MENU, 
DP est inchangé, mais FP est posi- 
tionné à $8E6. Les pointeurs de 
variables n’ont pas bougé. Vous pou- 
vez vérifier tout cela sans difficulté en 
suivant les indications fournies dans 
l’encadré ci-contre. 


Après modification des pointeurs et 
avant chargement de CHOIX 1, les 
pointeurs de variables ont évidem- 
ment bougé mais, surtout, le DP a été 
positionné à la valeur de FP, soit 
$8E6. 


Après le chargement de CHOIX 1, 
le programme a bien été chargé en 
dessus de MENU. Enfin, après modi- 
fication des pointeurs et avant le 
retour à MENU, DP a été remis à 
$801 et FP à sa valeur d’origine $8E6. 


Maintenant que ces pointeurs n’ont 
plus guère de secrets pour vous, 
essayez d’imaginer des complications 
supplémentaires : 

e faire coexister plus de deux pro- 
grammes ; 

- seulement deux, mais en conservant 
les valeurs des variables au retour : 

° mieux encore, deux ou plusieurs 
programmes utilisant la même zone 
de variables simples. 


Et ce ne sont que des exemples. Il y 
a mille choses à faire en jouant avec 
les pointeurs. 


Jacques LABIDURIE 
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ASSEMBLEUR DU Z80 


LE PLUS GRAND 
NOMBKE PREMIER CONNU 


E plus grand nombre premier connu 
aujourd'hui est égal à 2132049 — ], 
Le petit Z8O ne prétend pas vérifier qu'il est 
premier mais peut en moins de quaire beures 
retrouver les 39 751 chiffres qui le composent | 


Depuis septembre 1983, le plus 

grand nombre premier connu 

est 2132049 _ 1 (découvert par l’Améri- 
cain Slowinski). 

Ce nombre fait partie de la famille 

des nombres premiers de la forme 


(2° — 1), les nombres de Mersenne, du 
nom d’un moine français qui s’y inté- 
ressa le premier en 1644. Depuis, les 
records successifs du plus grand nom- 
bre premier ont presque toujours 
appartenu à cette famille, qu’ils aient 


été découverts par Euler au 18° siècle, 
Lucas au 19° siècle ou Slowinski 
l’année passée. 

Nous ne vous proposons bien sûr 
pas de vérifier la primalité de (21324 
— 1), ce qui nécessite plusieurs heures 
de calcul sur Cray 1 avec le test de 
Lucas-Lehmer. Mais par contre, avec 
un petit Z80, nous allons calculer la 
valeur exacte de ce nombre et obtenir 
les 39 751 chiffres qui le composent. 


Le programme est assez court, 98 
octets seulement, maïs a besoin d’une 
grande zone de travail pour stocker le 
nombre. L’implantation générale en 
mémoire est représentée par le schéma 
de la page suivante. 


Le nombre est calculé en binaire 
codé décimal, un octet contenant 
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on: 


LGMAX (longueur maximale du 
nombre) vaut 8 000 H (H comme 
hexadécimal), soit 32 768 en décimal. 
Chaque octet contenant deux chiffres, 


| 
Les nombres de Mersenne 
A CTUELLEMENT, on connaît 29 nombres de Mersenne, nombres premiers | * 
de la forme (2-1). Tous les n n’ayant pas été explorés entre 44 497 et l 
G 86 243, il n’est pas sûr que 2%% soit le vingt-huitième nombre de Mersenne. De 
LGMAX | même entre 86 243 et 132 049. 
Valeur du n : k À 
Rang de l'expression Découvert Découvert 
2] par en | 
1 | 
2 | 
3 | 
À | 
5 | 
| 
zæ 8 | 
OCTETS 
PROGRAMME | : de | 
= Pal Powers | 
Implantation en mémotre Powers | 
Lucas | 
deux chiffres. Dans le programme, Lehmer et Robinson | 
Ë 


Riesel 
on pourra donc stocker des nombres Hurwitz et Selfridge 
de 65 536 chiffres : les nombres de Si 
Mersenne auront ainsi suffisamment Gillies | 
de place pour aller jusqu’à : | 
(2217705 - 1). * | 
Tuckerman | 
Nickel et Noll 
ï : Noll Février 1979 | 
RAT ANDES. ; fa Nelson et Slowinski Avril 1979 | 
Prévoir : la durée Slowinski Janvier 1983 | 
des calculs 132 049 Slowinski Septembre 1983 | 
E Quelques chiffres l 
; hi 
Pour connaître la durée des calculs, SANS par Euler est resté pendant plus d’un siècle le plus grand 
observons la boucle principale du pro- 5 u | . 
gramme : Actuellement les 500 premiers chiffres du plus grand nombre premier connu sont : 
LD A,(HL) 7 cycles S1</74027/62 6942072381 2785761640 3540218800 
ADC AA 4 » 9926821240 3841868231 274208620% 6107774545 90 
DAS ; 4 * 0045159618 SBOS4ISIT 7915698174 | 
2096% 8765050513 9592110201 3149225239 
LD (HL),A 7 ?” V674599280 7950474719 2259664935 4975511373 1084255868 
LE] 
es HL . e 1977969184 7458193759 8237719449 4938207582 9555852796 
B4S4485VR4 4020268453 7504239767 6916772484 1506464109 
Cette boucle est formée de 41 cycles. 1777251902 8191260065 7947401797 6932469826 77269B266% 
1511897039 5984248890 0061272076 0244591123 4087810954 
Deux compteurs sur 8 bits (d’abord 6457146491 5541429256 4726514594 9023067551 5467717759 


B, puis C) ont été préférés à un seul 
compteur sur 16 bits, BC, qui aurait 
ralenti le programme de moitié envi- 


et les 501 derniers chiffres de ce nombre sont : 


855359885:2:0 0940172476 5419165472 8279987863 2042910794 
5424906196 5847854995 1321771127 3013288607 3480127687 


ron. 6849327926 0403717088 6585948941 B424977208 3050084907 
5427501238 2422527497 1854459957 0712922244 1941861524 | 
A chaque appel de DOUB, la bou- 7764010289 0109682185 0407923309 9852896500 4926957667 
cle est effectuée CB fois, CB repré- ” à dns Ge 
3110801603 5501562245 8865243152 242940 35674447 
sentant la longueur en octets du nom- 0461517964 3318420648 42407B3685 7099027061 7212849129 
bre. Cette longueur varie bien sûr tout 8542760432 7412127556 7738115308 2892561983 9063766021 
au long de l’exécution du programme, JICBI2T675 6720822711 6789561494 2252264415 3240796400 
k é 4851093298 8357862164 4702566339 8621385784 535720061211 
passant progressivement de 1 à Fe : : 


(39 751/2) pour le nombre que nous Le programme en Z80 vous permettra de calculer les 38 750 chiffres restants ! 
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Adres. Codes 


0000 
0000 


F800 
F800 
F800 
F800 
F800 
F802 
F805 
F808 
F808 
F80B 


2EDi 
1103702 
CD17F8 


CD3SF8 


D 


FaoC 20 


FB0E 
F80F 
F810 
Faii 
F8iS 
F813 
F816 
F817 
F817 
F817 
F817 
F818 
F819 
F81C 
F8iF 
Fe22 
F924 
F826 


F829 : 


FB2R 


N°2- 


CDSÈSF8 
C9 


ES 
CS 
Z1FFF7 
78 


3 2B 


10F9 
QD 
C23FF8 


Ci 
30046 
3601 
Q4 
2001 


2 OC 


E1 
C9 


21FFF7 
37 

7E 
DEGO 
27 

77 

2H 
38F8 
C9 
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Commentaires 

FIN: EOU 

LGMAX:  EQU 
ORG 


FUISSi: 
DEC 


CRETE 


DOUR: 


; 
DOURI: LD 


DOUR?2: 


3 
MOINS: LD 


MOINSI: LD 


ae at en 


END 


F7FFH 
8Q00H 


FIN+1 


L,209 
DE, 515 
INIT 


DOUR 

L 

NZ, FUISS1 
DE 

A, D 

E 
N7Z,PUISS1 


MOINS 


HL 

DE 

EC, LGMAX-—1 
DE,FIN-1 


RC, O100H 


SN»? 


HL 

BC 

HL, FIN 
AE 

A 

Z, DOURI 
C 


NZ, DOUR1 


EC 

NC, DOURE 
CHU) 1 

LS] 

NZ, DOUR® 
C 


CHLD , À 


C; MOINS 


ETES 


+ 


DORE TRE CE TE 


DEL=132049 
<615*256+209 
Initialisation: 


On double DEL':fois. 


On soustrait. 1 
et c'est fini! 


Nombrez=i 


, | 
CE=long.. du nombres! 


Un retouche DEL 


ler octetsi si carry 


et longueur CReCB+1. 


Nombre=nombre1 


Nombres de Mersenné, calcul de 
2ADEL = Le. a 
Assembleur du Z80 
Auteur Christian Boyer 
Copyright LIST et l’auteur 


cherchons. On peut ainsi en déduire 
que, si le quartz a une fréquence de 
4 MHz, la durée t du calcul de (2-1) 
est : 


t = 7,72X10-7x n? secondes. 


Cette durée étant fonction du carré 
de n, sa croissance est très rapide. 
Pour (213204 - j), il vous faudra atten- 
dre trois heures et quarante-cinq 
minutes, alors que pour (272!7-1), 
huit secondes suffiront. 


Et si l’on veut 


modifier. 


Comment adapter ce programme à 
votre système Z80 ? Les seules valeurs 
à changer sont celles de FIN et 
LGMAX selon l’espace mémoire dis- 
ponible. Dans le cas du programme 
proposé ici, l'occupation de l’espace 
est représentée ci-dessous : 


7309 
NOMBRE 
FINS FIFF 
F869 
PROGRAMME 
F862 


Occupation de 
l’espace mémoire 


Après l’avoir lancé (et avoir 
attendu patiemment la fin de son exé- 
cution !), ce programme vous don- 
nera le nombre cherché, ses deux der- 
niers chiffres étant en FIN. 


Si vous voulez calculer un nombre 
de Mersenne autre que (213204 — 1), il 
vous suffit de modifier en consé- 
quence les LD L et LD DE du début 
du programme. Et comme le dix- 
huitième nombre de Mersenne est 
déjà composé de près de mille chif- 
fres, vous apprécierez certainement la 
rapidité de l’assembleur… 


Christian BOYER 
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LES COUPS D'OEIL DE LIST 


BASIC ÉTENDU 
POUR ORIC 


NE seule et même cassette, « Oric, Basic 
étendu », enrichit à la fois le Basic de 
l'Oric-1 et celui de l'Atmos. Orientée surtout 
vers le graphisme, elle dote l'Oric- l' de treixe 
fonctions supplémentaires alors qu'elle en apporte 
vingt-trois à l’Atmos. Elle est éditée et 
distribuée par Infogrames et coûte environ 


160 FE ff. 


Le Basic de l’Oric-1 ressemble 
beaucoup à celui de l’Atmos. 
Pourtant, la cassette Oric, Basic 
étendu n’agit pas de la même façon 
sur ces deux ordinateurs. La face 1 


Ici avec les instructions IDEG, !GO 


, 
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enrichit l’Oric-1 de 13 nouvelles com- 
mandes Basic et occupe, pour cela, 2 
Koctets de mémoire vive. Quant à la 
face 2 de cette cassette, elle fournit 23 
nouvelles commandes à l’Atmos en 


Munie du Basic étendu 
la baute résolution fait ses preuves 


/ROTATE... 


accaparant 
vive. 


Cette extension du Basic est essen- 
tiellement graphique. Les commandes 
se présentent précédées d’un point 
d’exclamation. Certaines se retrou- 
vent sur les deux machines. C’est le 
cas de !BOX qui trace des rectangles 
ou de ISCROLL qui déplace l'écran, 
en mode HIRES comme en mode 
TEXT. Avec cette dernière instruc- 
tion, l’écran se déplace dans une 
direction choisie à l’intérieur d’une 
fenêtre définie par quatre paramè- 
tres : la ligne de début, la ligne de fin 
de fenêtre (de 0 à 26 en mode TEXT 
et de 0 à 199 en mode HIRES), la 
colonne de début et la colonne de fin 
de fenêtre (de O0 à 39 sous les deux 
modes). En mode HIRES, lorsque la 
fenêtre est importante, le scrolling est 


3 Koctets de mémoire 


et là, avec l'instruction !BOX. 
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assez long car le bloc mémoire est 
déplacé octet par octet. 


L’instruction !CSET redéfinit des 
caractères et la réservation de huit 
octets consécutifs n’importe où dans 
la mémoire pérmet à !CHAR d’affi- 
cher les caractères en mode HIRES. 


Avec !GO, on retrouve une instruc- 
tion assez similaire à celle du logo 
(AVANCE, pour les francophones), 


Le logiciel en quelques lignes 


-Nom : Oric, Basic étendu 
Ordinateur : Oric-1 et Atmos 
Forme : cassette 
Édité et distribué par : Infogrames 
Prix public: 160 FF ttc 
Nombre de fonctions nouvelles : 

13 sur Oric-1 et 23 sur Atmos 
Principale orientation : graphismes 

Autres orientations : gestion de cas- 
setté, son 
Occupation mémoire : 2 Koctets sur 

. Oric-1 et 3 Koctets sur Atmos 


l’angle de direction étant fixé par 
!ROT (!ROTATE sur l’Oric-1) et ini- 
tialisé par !DEG. D’autre part, la 
valeur de cet angle peut toujours être 
connue par ? & (0) car l’expression 
& (x) est traitée comme une variable. 
Grâce à l’instruction !WRITE, des 
chaînes de caractères sont directement 
affichées à l’écran, en mode HIRES. 
Attention cependant sur l’Atmos : 
toute tentative d'utilisation de cette 
instruction en mode TEXT bloque la 
machine. Il ne reste plus alors qu’à la 
débrancher... Espérons que cette 
erreur sera corrigée sur les prochaines 
versions. 
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Toutes les commandes graphiques 
du Basic étendu décrites jusque-là 
sont disponibles sur l’Oric-1l et sur 
l’Atmos. Pour des raisons inconnues, 
d’autres commandes sont réservées 
uniquement à l’Atmos. C’est le cas de 
fINVERSE qui remplace chaque cou- 
leur par sa couleur complémentaire. 
Pour les animations, il vaut mieux 
utiliser cette instruction en mode 
HIRES à cause de la lenteur d’exécu- 
tion due, ici encore, à la taille de la 
page mémoire graphique. 


L’instruction !CLS doit être suivie 
de deux paramètres. Elle efface 
l'écran en mode TEXT et place dans 
les deux premières colonnes les deux 
attributs spécifiés par les paramètres. 
En mode HIRES, une utilisation inté- 
ressante de cette instruction est le 
changement de couleur des trois lignes 
de commande. 


Le Basic de l’Atmos s’étend même 
au son puisque !PING fournit un 
ping de fréquence déterminée, et 
RISE ou !FALL, un son de fré- 
quence croissante ou décroissante, 
assez peu harmonieux d’ailleurs. 


Bravo pour les 


sauvegardes 


Deux instructions très sérieuses et 
intéressantes se trouvent dans les deux 
extensions de Basic. Tout d’abord 
fRECALL sur Oric-1 (!OLD sur 
Atmos) repêche un programme effacé 
par erreur avec NEW. Quant à 
lESAVE, elle sauve à la fois le pro- 
gramme utilisant le Basic étendu et le 
Basic étendu lui-même. Cette dernière 
instruction (suivie de la même syntaxe 
que CLOAD donne au Basic étendu 
tout son intérêt : grâce à elle, il n’y a 


pas à recharger la cassette à chaque 
fois que l’on utilise un programme 
écrit à l’aide du Basic étendu. 


Pour ce qui est de la gestion des 
cassettes, on trouve, pour l’Oric-1, 
IVERIFY qui vérifie que le pro- 
gramme en mémoire a bien été sauvé, 
et !FIND qui retrouve le nom des 
programmes enregistrés sur cassette. 
Ces commandes rendent la gestion des 
cassettes de l’Oric-1 comparable à 
celle de l’Atmos. Mais ISTORE fait 
toujours défaut. 


Voulez-vous 


savoir l'heure ? 


Le Basic étendu enrichit encore 
l’Atmos de fonctions gérant une hor- 
loge affichée sur la ligne de contrôle, 
en temps réel : !ONCK, !'OFFCK et 
TIME. Le temps n’est d’ailleurs pas 
vraiment réel, car certaines instruc- 
tions, comme ZAP, le font dériver. 


Enfin, !COPY permet une recopie 
d’écran sur imprimante, en mode 
TEXT uniquement, et !IGET ‘‘DON- 
NEE’”’ laisse l’Atmos inactif aussi 
longtemps que DONNEE n'est pas 
introduit. En conclusion, les instruc- 
tions graphiques sont intéressantes 
mais ne sont pas vraiment sophisti- 
quées. La possibilité de sauver en 
même temps l’extension du Basic et 
son application est un « plus », abso- 
lument nécessaire lorsque le nombre 
de commandes supplémentaires est 
aussi important. C’est un point positif 
pour ce Basic étendu qui est, on peut 
le rappeler, surtout orienté vers les 
graphismes. 
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. JEUX ET CASSE-TÊTE DE CE MOIS* 


LES JEUX ET 
CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d'abord, ils peuvent étre pris sous l'angle 
ludique, c'est-à-dire qu'il s'agit de jeux, de petits 
problèmes plus ou moins faciles à résoudre. Ils ont 
également un aspect pratique. Ils permettent en 
effet à chacun d'exercer son agilité logique. Et il 
n'est pas nécessaire, pour trouver la solution, 
d'avoir un ordinateur sous la main. 


4 


Court et structuré 


PILE, C'EST PAR 


FACE , C'EST IMPAIR 


La revue américaine Creative 
; Computing a publié, dans son 
numéro d’août 1978, le programme 


suivant : 

10 let X=0 

20 print X,21X 

30 let X=X+1 

40 if X=18 then 60 
50 goto 20 

60 end 


Comme vous pouvez le constater, 
ce programme ne présente pas de 
grande difficulté, ni sur le plan des 
résultats ni sur le plan de la program- 
mation. Au fait, qu'est-il chargé 
d’afficher à l’écran et comment le 
récrire pour qu’il soit d’une part plus 
court, et d’autre part, plus structuré, 
c’est-à-dire plus lisible ? 
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Pair ou impair 


Le langage Pascal dispose de la 

fonction ODD(I) qui indique si 
l’entier I qui lui est passé en paramè- 
tre est pair (valeur FALSE, soit 0), où 
impair (valeur TRUE, soit 1). Mais 
peut-être ne programmez-vous pas en 
Pascal. Dans ce cas, cette fonction est 
simple à écrire, puisqu'elle est égale 
au résultat de l’expression : 
(i mod 2) 


L'opérateur mod (modulo) qui est 
utilisé calcule le reste de la division 
entière. Ainsi si i est pair, le reste de 
sa division par 2 est égal à O, mais il 
vaut ! si i est impair. Encore faut-il 
disposer de cet opérateur mod. S’il est 
absent de votre ordinateur, il faudra 
utiliser une autre formule : 

( — (—-1))/2 

Cette expression retourne bien, en 
effet, la valeur 0 lorsque i est pair, et 
1 lorsque i est impair. Toutefois, cette 
formule n’est, par sa complexité, pas 
très satisfaisante. Elle utilise en effet 
une élévation à la puissance qui met 
en œuvre le logarithme et l’exponen- 
tielle. Ce qui nécessite de nombreux et 
longs calculs. Vous n’aurez sans 
doute aucun mal à en trouver une 
plus simple, avec les fonctions cou- 
ramment disponibles dans les diffé- 
rents langages. 


* Les solutions de ces jeux paraîtront dans le 
prochain numéro de LIST. 
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L'inventaire incomplet 


Comme de nombreux problè- 
k mes que nous soumettons à 
votre sagacité,-celui-ci est réel, et pro- 
vient d’un programme de gestion de 
stock d’une grande société de distri- 
bution. Pour chaque élément du 
fichier stock, il est mémorisé : 

e le nombre d’articles commandés, 

e le nombre d’articles livrés, 

e le nombre d’articles vendus. 


Le but est d'imprimer à la fin de 
chaque mois un inventaire, c’est-à- 
dire la liste de tous les articles qui ont 
fait l’objet d’au moins un mouve- 
ment, à savoir une commande, une 
livraison ou une vente. Le programme 
d’édition se présente de la façon sui- 
vante (ici, en Pascal) : 


REPETER 


Lire___article__ suivant 


«Mois = 


_ SOLUTIONS 
DU NUMÉRO PRÉCÉDENT 


>rr 1 


Remontons un peu 
dans le temps. 


Pour calculer les numéros du 

mois et de l’année qui précè- 
dent le mois de base, il existe deux 
jeux de formules, selon que le calcul 
de l’année est réalisé avant ou après 
celui du mois. Si le mois est calculé en 
premier, les formules sont les suivan- 
tes : 
((Mois + 10) mod 12) + 1 
Année = Année — (Mois div 12) 


Par contre, si l’année est calculée 


SI Commandé + Livré + Vendu <> 0 ALORS 


__ article 


Imprimer 
FIN__SI 
JUSQU__A_ Fin__de __ 


fichier 


DEN CONNAÎS UN QUI VA 

ÉxRE SURPRIS ŒUAND jL 

VA. FAIRE SON 
INVENTAIRE 0: 


Or, un mois, l’utilisateur a eu la 
surprise de ne pas voir apparaître sur 
la liste un article qui pourtant avait 
fait l’objet non seulement d’une com- 
mande, mais également d’une vente. 


Pouvez-vous dire ce qui s’est passé, et 
comment corriger le programme pour 
que cela ne se reproduise pas ? 
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en premier, sa formule de calcul doit 
être modifiée ainsi : 


Année = Année + ((Mois + 10) div 
12) — 1 : 
Mois = ((Mois + 10) mod 12) + 1 


La première formule, plus simple, est 
bien entendu préférable, 


[4 24 _ 


Pas un bit de plus 


Le nombre de valeurs différen- 
tes qu'il est possible de repré- 
senter avec B bits est égal à : 
N=2oùB>0 

Le nombre minimum de bits néces- 
saires pour représenter N valeurs dis- 
tinctes est donc L plus petit entier B 
tel que : 
2 > = NoùB > 0 


En prenant le logarithme des deux 
membres de l'inégalité, nous obte- 
nons : 
log (28) > = log N 
oùN>0etB>0 

Si nous notons PLAFOND{X) la 
fonction retournant le plus pétit entier 
supérieur ou égal à X, cela revient à 
écrire : 

B = PLAFOND (log N/log 2) où 
N>1 


qui est la formule désirée. Pratique- 
ment, cette formule peut être pro- 
grammée, compte tenu des problèmes 
d’arrondi, de la façon suivante : 

= ENT ((og N/log 2) + 0,99999) 
où ENT(X) ést la fonction retournant 
la partie entière du nombre réel X. 
Par exemple, avec N égal à 3, nous 
avons : 


B = ENT (1,0986/0,6931 + 0,99999) 
B -— NT (2,5850) 
B = 


à ‘il faut . deux bits 
pour mémoriser trois valeurs distinc- 
tes. 


»rv 7 


I et J, maïs pas K 


L'échange des valeurs de I et 

de J, sans passer par une varia- 
ble auxiliaire, s'effectue simplement 
par les trois instructions suivantes : 


ee a 
Let 
a | 


Ce procédé ne provoque toutefois 
pas, sur certaines machines, le même 
résultat que le passage par une varia- 
ble auxiliaire, et ceci dans deux cas. 


Tout d’abord, lorsque les deux 
variables I ét J ne sont pas du même 
ordre de grandeur. En effet, compte 
tenu du nombre de chiffres significa- 
tifs disponibles sur la machine utili- 
sée, il peut arriver que ! + J soit égal 
à 1. Par exemple, FPaddition de 1 E 30 
et de 12 a en général pour résultat 
1E 30, c’est-à-dire que la valeur 12 
est perdue par l’ordinateur. Dans ce 
cas, les valeurs de 1 et de J ne sont 
plus celles que l’on attendait. 


Ce procédé est également mis en. 
défaut lorsque les deux valeurs sont 
très grandes. Par exemple, pour un 
ordinateur pouvant stocker des nom- 
bres jusqu’à 32767, si 1 et J valent 
tous deux 32000, leur somme est 
égale, en général, à —1536 (32000 + 
32000 - 2 » (32767 + 1)), et le résul 
tat Est ainsi faussé. 

Toutefois, ces deux remarques ne 
mettent pas en Cause la méthode 
employée (qui reste juste) mais son 
utilisation qui dépend des _ dé 
la machine utilisée. = 
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POUR 
CHOISIR, pen- 
sez 2 fois. 


1° Les perfor- 
mances de 
l'appareil ? 

2° Les perfor- 
mances des pro- 
grammes dispo- 
nibles ? 

Duriez fait des 
sélections pour 
vous éviter des 
regrets. Vous 


êtes tranquille. 
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La réponse française ! 


Cette offre spéciale comprend : 

- 1 unité centrale 32 K utilisateurs 
avec synthèse de la parole. 

- 1 clavier azerty accentué, infrarouge. 

- 2 manettes infrarouge. 

— 1 module Basic (32 K). 

— 1 manuel d'utilisation. 

— 1 cordon Péritel. 

— { cordon secteur. 

- 1 livre complet de programmes 

prêts à l’emploi. 
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exelvision 


LES COUPS D OEIL DE LISF 


__ ARROW 64 
UN ÉDITEUR-ASSEMBLEUR 
POUR COMMODORE 64 


ESTINÉ au Commodore 64, le logiciel 


Arrow 64 est un 


éditeur-assembleur 


qui intéressera surtout les programmeurs en 


langage-machine. 


Arrow 64 se présente sous forme de cartouche ; 
édité par Micro Application Software, 

il est accompagné d'un guide d'utilisation 

en français qui frappe par sa minceur. 

Il coûte environ 640 FF ft. 


Le logiciel Arrow 64 pour 

Commodore 64 devrait permet- 
tre, même aux débutants, de faire un 
bon usage des fonctions d’édition ou 
de l’assemblage de programmes. 
Encore faut-il ne pas avoir peur 
d’entreprendre des recherches person- 
nelles car le guide d’utilisation est 
vraiment très mince. 
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EFFACE L'ECRAN 
MODE MENUSCULES 


Un rapide coup d’œil sur ce guide 
nous indique que les possibilités 
d’Arrow se subdivisent en quatre 
catégories distinctes, et complémentai- 
res. Nous commencerons par les com- 
mandes de gestion du magnétophone. 

Les trois commandes classiques 
de ce périphérique sont conservées : 
LOAD, SAVE et VERIFY. Mais 


Un programme sans prétention 
assemblé par Arrow 64... 


BON 


2 SHOOSOSOGOSSOSHS 


FO PH pe CCD 60 m0 L 


Arrow leur en ajoute une quatrième : 
APPEND, tout en améliorant la 
vitesse d’une façon appréciable. Les 
transferts peuvent maintenant se faire 
à 3 600 Bauds, soit une multiplication 
par 6 environ de la vitesse habituelle 
de travail. 


La syntaxe est d’une simplicité 
remarquable puisque les instructions 
de commande se réduisent à une seule 
lettre précédée de —. Ainsi : LOAD 
titre” devient : <L ?”’titre”’. 


La fiabilité des enregistrements 
effectués à 3 600 Bauds reste excel- 
lente : nous n’avons eu aucune erreur 
de chargement au cours de tous nos 
essais, même pour de très longs pro- 
grammes. Quant au gain obtenu en 
rapidité, il est extraordinaire, jugez- 
en : un programme de 23 Koctets est 
sauvegardé ou remis en mémoire 
depuis le magnétophone en une 
minute (y compris 10 secondes 
d’amorce, soit 50 secondes). A titre 
de comparaison, le même programme 
(qui occupe 90 blocs) demande égale- 
ment une minute pour être transféré 
depuis une disquette. Moralité : les 


COULR, X 
; CHANGE COULEURS 


SFF 

CADRE 

3 TEMPORISE 
ENCORE 

; 15 FOIS 


RER ES EST TN STI R, 
U, °"R,°N, "A, "L 
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; 


disquettes Commodore ne sont pas. 


aussi rapides qu’elles devraient l’être ! 


Lors de l’utilisation des commandes 
du magnétophone, vous obtenez en 
prime sur l’écran le nombre d’octets 
occupés par le programme ayant fait 
l’objet de la commande. Notons éga- 
lement, c’est important, que les pro- 
grammes sauvegardés à grande vitesse 
avec Arrow ne peuvent plus être 
rechargés en mémoire si la cartouche 
n’est plus connectée. 


La fonction APPEND permet de 
mettre bout à bout un programme 
présent en mémoire centrale et un 
programme enregistré sur cassette. 
Mais il faut veiller en ce cas à la 
numérotation du second programme, 
ses numéros de ligne devant être supé- 
rieurs à ceux du premier. 


Une dernière commande permet de 
faire avancer la bande à grande 
vitesse jusqu’à une position prédéfi- 
nie. Voilà qui pourra s'avérer pré- 
cieux pour retrouver un programme 
qui n’est pas en début de bande. 


| Éditeur-assembleur 
… mais aussi calcul 


Arrow offre un autre attrait, pré. 
senté à la suite par le manuel : des 
possibilités de calcul intéressantes. En 
effet, une calculatrice hexadécimale- 
décimale permet de faire, avec une 


grande facilité, les conversions de 
décimal à hexadécimal, et vice versa, 
avec additions et soustractions.. mais 
malheureusement, pas de multiplica- 
tions ni de divisions ! Le programme 
présent en mémoire lors de l’utilisa- 
tion de cette calculatrice reste intact. 
Quant à la simplicité d'emploi, elle est 
parfaite. 


Intéressons-nous maintenant aux 
quelques fonctions d’édition supplé- 
mentaires apportées par cette cartou- 
che. Une fonction recherche une 
séquence en mémoire (FIND) et peut 
même la remplacer par une autre. Il 
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. et Les effets 
graphiques s'arré- 
tent : 
SUT ce Message, 


est possible, par exemple, de recher- 
cher et de remplacer toutes les occu- 
rences de la chaîne « TRUC » dans 
un programme Basic par la chaîne 
« MACHIN ». Le remplacement se 
fait ligne par ligne sous le contrôle de 
l'utilisateur, ce qui permet de ne 
leffectuer qu’à bon escient, bien 
qu’en contrepartie cela le rende fasti- 
dieux... 


La même fonction peut être égale- 
ment utile pour retrouver rapidement 
la variable Z$ dans un programme. 
Une fonction classique de numérota- 
tion automatique des lignes est dispo- 
nible (AUTO). Une autre, de renumé- 
rotation (RENUM) est peu intéres- 
sante pour le Basic, car elle ne permet 
pas de renuméroter les adresses de 
saut (GOTO, GOSUB...). 


Enfin, une fonction DELETE éli- 
mine facilement un programme ou un 
groupe de lignes indésirables. 


Pour intéressantes qu’elles soient, il 
faut bien avouer que ces quelques 
fonctions ajoutées pour l’édition des 
programmes ne sont pas vraiment suf- 
fisantes. En Basic, une fonction pas à 
pas (STEP), une fonction TRACE et 
un vrai RENUM auraient été les bien- 
venus. Mais ne perdons pas de vue 
qu’Arrow est avant tout un utilitaire 
d’assemblage, et que les fonctions 
d’édition disponibles sont alors suffi- 
santes pour cette activité. 


En tant qu’utilitaire d’assemblage, 
ce logiciel offre d’abord un petit 
moniteur langage-machine, qui res- 
semble assez au TIM des ’’gros’”? 


Le logiciel en quelques lignes 


Nom : Arrow 64 

Ordinateur : Commodore 64 
Forme : cartouche ee 
Edité et distribué par : Micro Applica- 
tion Software 

Prix public : 640 FF tic 

Principale orientation : assemblage de 
programmes 

Autres orientations : édition de texte, 
gestion de cassette, calculatrice hexadé- 
cimale. se 


Commodore. On peut, grâce à ce 
moniteur : 

e visualiser en hexadécimal à l’écran 
une zone mémoire, et la modifier 
éventuellement ; 

e faire exécuter un programme en 
langage-machine à partir d’une 
adresse spécifiée ; 

. afficher et modifier le contenu des 
registres du processeur ; 

e charger et sauvegarder sur support 
magnétique une zone mémoire située 
entre des adresses spécifiées ; 

. enfin, rechercher une séquence 
d’octets en mémoire. 


Ce moniteur est quand même un 
peu « juste »: il lui manque, par 
exemple, l’affichage des codes ASCII 
correspondant aux octets lors de 
l’affichage d’une zone mémoire. Plus 
gênante encore est l'absence d’un 
petit désassembleur qui serait une aide 
précieuse pour la recherche des 
erreurs. 


. Un manuel 


bien peu consistant 


Le mode d’emploi de l’éditeur- 
assembleur occupe onze des seize 
pages du manuel d’utilisation. Et c’est 
là que nos craintes concernant la min- 
ceur du livret se précisent... Un 
éditeur-assembleur est destiné (que les 
familiers du langage-machine ne nous 
tiennent pas rigueur de ces quelques 
mots d’explication !) à transformer 
un programme-source, écrit sous la 
forme d’instructions mnémoniques, 
en un programme langage-machine 
dit code-objet, exécutable. Les prati- 
quants de la chose savent combien est 
fastidieux le travail d’assemblage s’il 
est fait manuellement, avec un papier 
et un crayon. Et combien il est péril- 
leux aussi, les risques d’erreur étant 
énormes ! 


Avec un assembleur comme Arrow, 
le code-source est composé de la 
même façon qu’un programme Basic, 
avec des numéros de lignes, et l’utili- 
sateur conserve toutes les facilités de 
l’éditeur du Commodore. L’assem- 
bleur Arrow utilise la syntaxe habi- 
tuelle pour les mnémoniques et les 
opérandes, au standard Mos Techno- 
logy. Les données et adresses peuvent 
être fournies sour forme de symboles, 
expressions ou constantes (en déci- 
mal, hexadécimal ou binaire). Il est 
possible d'utiliser des étiquettes et 
d’intreduire des commentaires dans le 
programme-source. Par ailleurs, des 
pseudo-codes permettent l’assemblage 
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d’octets (pour les messages par exem- 
ple), la réservation d’espace en 
mémoire, etc. 


Lorsque le programme-source est 
composé, le lancement de l’assem- 
bleur provoque l’affichage à l’écran 
des résultats et, bien entendu, des 
erreurs éventuellement commises, 
qu’il est facile de corriger car le 
source reste intégralement présent en 
mémoire. L’imprimante peut être uti- 
lisée pour l’impression des résultats de 
l’assemblage. Celui-ci se déroule en 
deux passes successives, mais très 
rapidement exécutées. On voit là 
l'avantage de la cartouche sur la dis- 
quette. Une table des étiquettes utili- 
sées dans le programme et une table 
des références seront, si on le veut, 
éditées en fin d’assemblage. 


Une seule page du manuel fournit 
un exemple de la syntaxe à respecter 
pour les modes d’adressage et les 
types d’opérandes. Il s’agit d’une liste 
traitée comme un programme, mais 
aucun commentaire ne l’accompagne. 
Aucun exemple concret contenant un 
vrai programme fonctionnel ne figure 
dans ce «livre »... Un manque de 
pédagogie regrettable dont souffriront 
sans aucun doute les débutants. 


Arrow est donc un éditeur- 
assembleur assez performant, et sim- 
ple d’emploi. Il est bien dommage 
qu’un manuel d'utilisation un peu 
trop succinct oblige les débutants à 
tâtonner pour faire leurs premiers 
pas. La mise en œuvre, une fois ces 
premiers pas franchis, est heureuse- 
ment très facile. De quoi passer des 
heures passionnantes ! 


Robin BOIS 
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LES COUPS D'OEIL DE LIST : 


| PC-UTIL 2 : POUR 
 DOPER LE BASIC 
_ DU PC-1500 


[: est déjà puissant, le Basic de l'ordinateur 
Sharp PC-1500 (ou Tandy PC-2), mais 
l'abondance ne nuit jamais en matière de 
programmation. PC-Util 2, logiciel, sur cassette 
édité par Pocket-Sofi, est surtout 


dédié aux programmeurs. 


Selon que vous disposez d’un 

ordinateur de première ou de 
seconde génération (la mémoire morte 
diffère), la cassette d’extension du 
Basic ajoutera, à votre PC-1500, 16 
ou 19 instructions (1). Il s’agit essen- 
tiellement d'instructions d’aide à la 
programmation dont certaines ne peu- 
vent renier leur parenté avec des lan- 


C'EST LoGicieL, MON 
CHER WATSON... iL S'AGÎT 
DES 16 FONCTIONS 


gages tels Pascal ou Forth beaucoup 
plus structurés que Basic. 


Le logiciel est totalement rédigé en 
langage-machine et peut être employé 
avec toutes les configurations possi- 
bles du PC-1500. Un module de 4 
Koctets de mémoire supplémentaire, 
ou plus, est indispensable. 


En sus des nouvelles instructions, 
PC-Util 2 transforme les claviers des 
machines de seconde génération : bip 
sonore à chaque pression de touche et 
« répétition » pour chacune d’elles. 
Une pression continue provoque la 
répétition de l’action, ce qui est bien 
utile avec les fonctions INS et DEL en 
particulier. 


Les seize fonctions communes à 
toutes les machines sont les suivan- 


tes : BEGIN, UNTIL, WHILE, 
REPEAT, STACK, IF, ELSE, 
ENDIF, ERN, ERL, ERR, 


RESUME, MIN, MAX, INSTR et 
STRING. 

Les huit premières définissent des 
structures de programmation particu- 


(1) Première ou seconde génération ? 16 ou 
19 instructions ? Si PEEK &E2B9 donne le 
nombre 213 sur votre ordinateur, vous avez 
perdu, le vôtre est un « ancêtre » ! 
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La logiciel en quelques lignes 


Nom : PC-Util 2 
Ordinateur : PC-1500 
Forme : cassette 

Édité par : Pocket-Soft 
Distribué par : XLog 


Prix public : 250 FF ttc 

Nombre de fonctions nouvelles : 

‘16 ou 19 selon la génération du PC- 
1500 Fe à 

Principale orientation : aide à la pro- 
grammation 

Occupation mémoire : 2 100 octets 


lières illustrées dans le tableau des ins- 
tructions de programmation struc- 
turée. 


Les instructions ERN, ERL, ERR 
et RESUME perfectionnent la gestion 
des erreurs (on avait déjà le ON 
ERROR GOTO..). ERN donne le 
numéro de la dernière erreur cons- 
tatée ou commise par le programme 
(par exemple, après une division par 
zéro, la variable ERN vaut 38). ERL 
renvoie le numéro de la ligne du 
programme où cette erreur s’est 
produite tandis que ERR force une 
erreur : ERR 38 fait croire au PC- 
1500 qu’il vient d’effectuer une 
division par zéro (arrêt du programme 
et affichage de ERROR 38 ON... ou 
branchement à un sous-programme si 
on a programmé ON ERROR 
GOTO...). Enfin, RESUME permet 
de retourner à l’exécution normale 
des instructions du programme qui 
suivent celle qui a provoqué l’erreur. 


Par exemple, un ON ERROR 
GOTO 100 prépare le programme à se 
rendre à la ligne 100 à la moindre 
erreur ; faire À = 1/0, ou faire 
ERR 38 qui lui est strictement iden- 
tique, provoque ce branchement en 
100 où ERN donne le numéro de 
l'erreur (ici 38) et ERL le numéro de 
la ligne Basic de l’erreur. On peut 
programmer alors une routine de ce 
genre : 

100 : IF ERN=38 PRINT’'DIVI- 
SION PAR ZERO EN LIGNE ”’; ERL 
101 : RESUME 


Voilà un moyen d’expliciter — en 
français — tous les messages d’erreur. 
La dernière instruction, RESUME, 


* renvoie à la suite de l'instruction 


fautive, ici 1/0 ou ERR 38. 


INSTR et STRINGS sont utiles aux 
manipulations de chaînes de carac- 
tères. La première trouve l’occurence 
d’une sous-chaîne dans une chaîne 
principale : trouver par exemple dans 
A$ qui contient « BONJOUR 
MONSIEUR », la sous-chaîne 
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’ 


« MON » qui est dans B$, s’écrit 
INSTR (A$, B$, 1) et retourne le 
nombre 9 représentant la position de 
« MON » dans la chaîne principale. 
Le troisième paramètre, 1 dans 


l’exemple, est le numéro du caractère 


de départ de la recherche dans la 
chaîne, il peut varier de 1 à 80. 


STRINGS$ (n, caractère ou code) 
renvoie n fois le même caractère ou 
code ASCII. C’est tout de même plus 
pratique que de l'écrire n fois ; 
STRINGS$ (70, ‘‘*x””) donne 70 fois le 
caractère ‘‘#°°. 


MIN et MAX, comme leur nom 
l’indique immédiatement, trouvent 
entre deux nombres ou chaînes de 
caractères le plus petit et le plus 
grand. 


Deux Koctets 


bien employés 


Les ordinateurs de seconde généra- 
tion disposent en outre de trois nou- 
velles fonctions : AUTO, PASS et 
UNPASS. PASS donne un mot de 
passe à un programme en empêchant 
son listage, et UNPASS supprime 
cette protection. Précisons immédiate- 
ment qu’elle ne résiste pas longtemps 
aux assauts des connaisseurs de la 
structure intime de l’ordinateur… 
Enfin, AUTO est réellement utile aux 
programmeurs puisqu'elle réalise la 
numérotation automatique des lignes 
d’un programme. Il n’est alors plus 
nécessaire de taper ces numéros à cha- 
que nouvelle ligne de programme, ils 
le sont automatiquement après l’exé- 
cution de AUTO n° de départ, incré- 
ment. 


_ La cassette - 
et sa notice d'emploi 


Toutes ces instructions nouvelles 
s’emploient normalement dans les 
programmes tant que PC-Util 2 est en 
mémoire. Cela bloque donc 2 100 
octets environ en permanence, mais 
ils sont bien employés. Si, avec les 
ordinateurs de première génération, il 
suffit d’écrire l’instruction en toutes 
lettres dans le programme, ce n’est 
pas possible avec les autres : les ins- 
tructions sont affectées à seize tou- 
ches particulières redéfinissables de 
« réserve » et sont par leur intermé- 
diaire introduites dans le programme 
Basic. 


Une mention « très bien » doit être 
attribuée aux fonctions de program- 
mation structurée (voir le tableau) 
mais aussi à AUTO. 

En conclusion, PC-Uftil 2 est un 
bon utilitaire d’aide à la programma- 
tion du PC-1500. 


Jean-Christophe KRUST 


Instructions de programmation structurée 


ANS la ligne qui suit, & action » est une suite quelconque d’instructions Basic, 
ainsi que « suite ». La « condition » est une expression arithmétique ou logi- 
que identique à celle des tests IF classiques et dont le résultat est soit vrai (vérifié, 1) 


soit faux (non vérifié, 0). 


BEGIN : action : UNTIL condition : suite — 


continuer tant que 
la condition n’est 
pas vérifiée (vraie) 


tant que condition est vraie 
BEGIN : action ; WHILE condition : action : eu : suite — 
. Lin, dès que la 
condition n’est plus 
vérifiée 


STACK remet à zéro la pile d’adresses avant toute boucle BEGIN... 


IF # condition : action si condition vraie 
: ELSE# : action si condition fausse 
: ENDIF : suite du programme -— 
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UNE PROCÉDURE PASCAL 


FILTRER LES ENTRÉES 


NE petite erreur lors de l'entrée d'une 

donnée et le programme ne tourne plus rond. 
D'où l'intérêt de mettre en place une procédure 
qui vérifie la validité d'un nombre entré. En 
voici une, écrite en Pascal, qui ne laissera passer 


que les nombres autorisés. 


Un nombre peut toujours être 

introduit sous la forme d’une 
chaîne de caractères. Si ce nombre 
correspond au format donné, on dit 
qu’il est valide. Sinon, il sera source 
d’erreurs. Pour éviter ces erreurs, une 
vérification s’impose. Elle passe, ici, 
par la création d’une fonction. 


Cette fonction est déclarée : 


La chaîne VALEUR contient le nom- 
bre dont il faut vérifier le format. Elle 
ne doit contenir que les signes « + » 
ou « — », les chiffres de 0 à 9, et un 
point (ou une virgule) décimal. 

Les deux autres paramètres, F1 et 
F2, correspondent au format que doit 
respecter le nombre contenu dans 
VALEUR. F1 correspond à la lon- 


Fr 


Le 


PROGRAMMES 
PASCAL POUR 
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gueur maximum du nombre, et F2 au 
nombre maximum de chiffres pou- 
vant apparaître après la virgule. 


Le premier paramètre, VALEUR, 
fournit donc à cette fonction la chaîne à 
analyser. Les deux autres, F1 et F2, per- 
mettent de spécifier le format auquel 
devra se trouver le nombre stocké dans 
VALEUR. Ce format est analogue au 
format des réels tel qu’il est défini en 
Pascal pour la procédure standard 
WRITE ; F1 correspond à la longueur 
maximale du nombre, y compris, 
éventuellement, le signe ainsi que la 
virgule ou le point décimal et F2 indi- 
que le nombre de chiffres après la vir- 
gule. Si F2 est égal à 0, le nombre 
attendu est un entier. Il ne doit par 
conséquent comporter ni virgule, ni 
point décimal. Dans le cas contraire, 
le nombre réel pourra comporter une: 
virgule ou un point, mais ne devra 
pas avoir plus de F2 décimaies. 


Cette fonction retourne une valeur 
entière qui correspond à un code 
d’erreur. Si le nombre contenu dans 
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la chaîne est convenable, la fonction 
retourne la valeur 0. Si ce nombre 
n’est pas valide, la valeur retournée 
est un code d’erreur qui indique la 
raison pour laquelle ce nombre ne 
convient pas. Le tableau suivant four- 
nit la liste de ces codes.avec leur signi- 
fication. 


Valeur de 


ombre. valide Libellé de l’erreur 


Pas de nombre 
Deux virgules 
ou points 
décimaux 

3 Le signe doit être 
au début du nombre 
4 Caractère illégal 
dans le nombre 


5 Nombre trop grand 
6 Nombre comportant 
trop de décimales 


Trois exemples typiques permettent 
d'illustrer, dans des cas très diffé- 
rents, l’intérêt de cette fonction. 


Pour une petite 


faute de frappe 


Le premier, qui vient immédiate- 
ment à l'esprit, concerne les saisies 
numériques entrées au clavier sous 
forme de chaînes. La simple conver- 
sion d’une chaîne entrée en nombre, 
sans contrôle de validité, n’est pas 
satisfaisante : elle risque de ne pas 
interpréter l’erreur de la même façon 
que l'utilisateur. L’exemple le plus 
courant est celui où la lettre O a été 
saisie à la place du chiffre 0. L’affi- 
chage à l’écran semble correct, alors 
que ce caractère peut soit ne pas être 
pris en compte par la routine de 
transformation de la chaîne en nom- 
bre, soit être considéré comme un 
symbole indiquant la fin du nombre. 
Dans ce cas, la valeur affichée à 
l'écran est différente de la valeur 
mémorisée par l’ordinateur (à moins 
que l’on ne prenne soin de réafficher 
toutes les zones saisies après traite- 
ment par l'ordinateur). La fonction 
créée ici permet d’éviter une telle con- 
fusion. 


Le second exemple est celui où les 
données saisies au clavier sont crucia- 
les pour la suite du programme. Dans 
ce cas, il convient de ne tolérer 
aucune erreur de la part de l’utilisa- 
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Fonction de vérification des entrées 
Programme en Pascal 


Auteur Thierry Chamoret 
Copyright LIST et l’auteur 


function nombre__ valide (valeur : string ; f1, f2 : 


var i : integer ; 
avanvir, 
aprevir : integer ; 
virgule : boolean ; 
numerr : integer ; 
begin 
if length (valeur) < =0 
then 
numerr : = 1 
else 
begin 
numerr : 
avanvir : 
aprevir : 
virgule : 
i: = 0; 
repeat 
it =i + ll; 
if valeur fi] ën [‘0’.. 
then 
if virgule 
then aprevir : 
else avanvir : 
else 
if valeur fi] in [’,’,”.7] 
then 
if virgule 
then numerr : = 2 
else virgule : = 
else 
if valeur [i] in [° +”, °-7] 
then 
begin 


«9”] 


aprevir + 
avanvir + 


ifi > 1 then numerr : 


avanvir : = avanvir 
end 
else 
numerr : = 4 
until G > 
if numerr = 0 
then 
begin 


numerr : = 5; 
if (2 > 0) and (f2 < 
end 
end ; 
nombre__ valide : = 
end ; 


numerr 


teur. Par exemple, la moindre faute 
dans l’entrée de la réponse à la ques- 
tion « quel est le numéro du fichier à 
détruire ? » doit être soigneusement 
signalée, même si l’on effectue des 
sauvegardes régulières des fichiers. 


Le troisième exemple correspond à 
ce que l’on appelle le traitement dif- 
féré ou traitement en « batch ». Pre- 
nons le cas d’un fichier qui a été saisi 
à l’aide d’un éditeur de textes, sans le 
moindre contrôle de validité des 


integer) : integer ; 


1 
1 


= 3: 
+ 1 


= length (valeur)}) or (numerr <> 0) ; 


if (1 > O0) and (fl < avanvir + aprevir + ord. (virgule)) then 


aprevir) then numerr : = 6 . 


informations entrées. Ces données 
sont destinées à être prises en compte 
ultérieurement par un programme de 
liaison (une comptabilité, par exem- 
ple). Dans cette situation, il ne faut 
en aucun cas interpréter des données 
erronées en essayant de les corriger, 
car il n’est pas sûr que « l'intuition » 
du programme s’avère correcte à tous 
les coups. De plus, il peut non seule- 
ment s’agir d’une faute de frappe, 
mais également d’une erreur dans le 
programme qui ne lit pas correcte- 
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_ UNE PROCÉDURE PASCAL 


ment la suite de caractères. Dans tous 
ces cas, un contrôle strict des données 
s’avère indispensable. 


La mise en œuvre de la fonction de 
vérification est assez simple. Elle peut 
s’insérer de la façon suivañte dans un 
programme : 


case nombre__ valide (entrée, 6,2) 
: valider _ entrée (entrée) ; 
traiter__ erreur (‘Vous n’avez pas entré de valeur’) ; 
traiter _erreur (‘Ce nombre contient deux virgules décimales”) ; 


e la reconnaissance d’un chiffre 
entraîne l’incrémentation de l’un des 
deux compteurs AVANVIR ou 
APREVIR, selon que l’on se situe 
dans la partie entière ou dans la partie 
décimale du nombre ; 


e la rencontre d’une virgule ou d’un 


traiter__erreur (‘Un signe apparaît au milieu du nombre’) ; 
traïîter__erreur (‘Caractère non numérique présent dans le nombre’) ; 
traiter__erreur (‘Cette valeur est trop grande’) ; 

traiter__erreur (‘Cette valeur comporte trop de décimales’) 


Pour déterminer si le nombre 
fourni dans la chaîne VALEUR rentre 
bien dans le format défini par F1 et 
F2, notre fonction utilise tout d’abord 
un indicateur VIRGULE qui signale si 
une virgule (ou un point décimal) a 
été rencontrée. De plus, deux comp- 
teurs AVANVIR et APREVIR mémo- 
risent respectivement le nombre de 
chiffres avant et après la virgule. 


Si la chaîne passée a une longueur 
nulle ou défectueuse, le code erreur 1 
est retourné, indiquant qu'aucun 
nombre n’a été entré. Autrement, 
tous les caractères sont analysés 
jusqu’à la fin de la chaîne ou jusqu’à 
ce qu’une erreur soit détectée. 


L'analyse des caractères s’effectue 
de la façon suivante : 


. X3Z 
+422: 110,5/H 
=Vz.. 


CAE GE 
re CLOS 
PRE ES 
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point décimal provoque, si l’indica- 
teur VIRGULE est vrai, une erreur de 
code 2. En effet, il s’agit du cas où 
deux virgules ou points décimaux 
apparaissent dans le nombre. La 
variable logique VIRGULE est 
ensuite positionnée à la valeur VRAI, 
ce qui permet de savoir, pour la suite 
du traitement, que la partie décimale 
du nombre va être analysée ; 

e si un signe est détecté, un test sur 
sa position dans la chaîne doit être 
réalisé. S’il n’apparaît pas comme 
premier caractère, l’erreur de code 3 
sera alors signalée, un signe ne devant 
pas apparaître au milieu d’un nom- 
bre ; 


< enfin, le caractère qui n’a été traité 
dans aucun des cas précédents 


Soit Ÿ'LE MOMENT 
Où JE Dois OUVRIR 
MON PARACHUTE, 
DONC y-y'= X32Z.. 
YY=0e 


entraîne une erreur 4, signalant qu’un 
caractère illégal est présent dans le 
nombre. 


Alors seulement il convient de véri- 
fier que le nombre ne dépasse pas la 
longueur maximale indiquée par F1. 
Elle est égale au nombre de chiffres 
avant (AVANVIR) et après (APRE- 
VIR) la virgule, augmenté de 1 si une 
virgule était présente dans le nombre. 
La fonction ORD, appliquée à une 
variable booléenne, retourne la valeur 
1 si elle est vraie, et O0 si elle est 
fausse. Nous utilisons cette propriété 
pour incrémenter, sans avoir besoin 
de faire un test logique, la longueur 
totale du nombre entré. S’il dépasse la 
longueur fixée par le format, le code 
d’erreur retourné est 5. 


La bonne note 


ici, C’est zéro 


La vérification de la partie décimale 
du nombre est ensuite effectuée. Si le 
nombre comporte trop de décimales, 
c’est le code d’erreur 6 qui apparaît. 


Il ne reste plus, alors, qu’à souhai- 
ter que la seule valeur retournée (ou 
du moins la plus fréquente) soit le 0, 
signe que le nombre introduit est 
valide. 


Thierry CHAMORET 


… C'EST FORMIDABLE, 
CES PETITS ORDINATEURS, 
FAUT L'DiRE !... 
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Om POP En PO 1 Pen PO be 


ee: 


AU CENTRE DE LA HP-41 C SE 


LA PROGRAMMATION 
SYNTHÉTIQUE : 
ONZE REGISTRES 
POUR TOUT FAIRE 


NE « bogue », en jargon informatique, 
est une erreur de programmation. 
Les programmeurs de chez HP ont mis grand soin 
à faire de la HP-41 C une machine sophistiquée, évolutive, sérieuse. 
Maïs la bogue est là, heureuse, énorme et subtile. 
Loin de diminuer l'intérét du calculateur, elle en multiplie les attraits. 
La porte s'ouvre grande sur un monde merveilleux où tout est possible. 


Dans notre premier article 
(LIST n° 1), nous avons entrou- 
vert la porte sur de nouvelles métho- 
des de programmation de la HP-41 C. 


Sans se jeter immédiatement dans 
l'analyse théorique du processus de 
création d’instructions synthétiques, 
on en a énoncé la logique. Parmi les 
onze nouveaux registres (M, N, O, P, 
Q, + ,a, b,c, det e), les sept derniers 
nous sont encore inconnus : leur rôle 
est fondamental. Aussi, sans attendre, 
regardons-les de plus près. 


Les registres 


d'état 


- Le tableau (page suivante) illustre, 
pour chaque registre d’état, composé 
de sept octets, son ou ses rôle(s) dans la 
gestion par la HP-41 C de sa propre 
mémoire. Leur manipulation est ren- 
due possible par l’emploi de fonctions 
synthétiques telles RCL, STO, X < >, 
etc. Mais, pour les employer on doit 
connaître les codages des données 
dans les registres d’état. 
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Les trois registres M, N, O et trois 
octets du registre P ont été examinés 
en détail la dernière fois. Ils forment 
tout simplement, ensemble, le grand 
registre alpha dont la capacité est de 
24 caractères (3 x 7 + 3). 


L'autre partie du registre P, pos- 
sède un emploi alternatif. Ses conte- 
nus varient en fonction des besoins de 
la HP-41 C. On y trouve parfois des 
lettres alphabétiques du registre alpha 
(lettres 25 à 28 a priori considérées 
comme perdues), ou des informations 
diverses lors d’opérations spécifiques 
comme les CATALOGs ou l’intro- 
duction de chiffres au clavier. 


Le registre Q est aussi un tampon 
de stockage temporaire de données. 
En l’occurrence, il s’agit de messages 
alphabétiques. Par exemple, lors 
de l’exécution de XEQ ‘ ABCDEF 
(même si aucun label de ce nom 
n'existe), on trouve dans Q les lettres 
FEDCBA qui ne sont autres que celles 
du nom du label, mais inversées. Ces 
lettres sont codées en ASCII (codes 
hexadécimaux 41 à 5A pour les lettres 
A à Z) ce qui donne dans le registre Q 
le nombre : 0,64 54 44 34 E - 59 


Les codes 41 à 46 des lettres ABC- 
DEF y sont pourtant tous, mais inver- 
sés (doublement) 64 pour 46, 54 pour 
45, etc. Le code 42 est caché sous le 
signe E-, et le code 41 est bien 
exprimé par 59 car 59 = 100 - 41 et 
c’est ainsi que sont codés les expo- 
sants. Ce nombre est bien « patholo- 
gique », on en examinera les dessous 
dans le détail ultérieurement. 


Le registre F possède une partie 
temporaire et code aussi les assigna- 
tions des touches primaires (non 
” shiftées ””). En fait, les assignations 
sont codées plus loin en mémoire, et 
le registre + se contente de noter si 
une touche est assignée ou non. 
Comme on a 36 touches, la HP-41 C 
utilise 36 bits du registre + (soit 4 
octets et demi). À chaque bit corres- 
pond une touche ; un bit est stricte- 
ment la même chose qu’un drapeau : 
s’il est armé, la touche possède une 
assignation (le contenu est recherché 
dans la table), sinon il n’y a pas 
d’assignation et la fonction exécutée 
est la fonction standard. 


De même, le registre e possède 36 
bits chargés de noter l’état d’assigna- 
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tion des touches secondaires (”” shif- Les registres d'état 
tées”?). 

Les registres a et b sont en totalité 
réservés pour stocker des adresses de 
la mémoire. Essentiellement, celles 
des sous-programmes employés 
(adresse où l’exécution doit retourner 
à la rencontre de RTN). 


Quatre octets sont nécessaires pour 
coder une adresse car la mémoire de 
la HP-41 C est découpée en registres 
de sept octets chacun. Toute adresse 
de la mémoire peut donc être définie 


n° d’octet 


ENENENENEMN 
[temp. | n° de ligne | 


ad. ROO | ad. END 
SSP. n° 3 adr. SSP n°2 | adr. SSP n° 1 | pointeur d’adr. 


adr. SSP n° 6 adr. SSP n° 5 | adr. SSP n° 4] adr.… 
assignations des touches primaires 
temp. alphabétique 


__ RE 


temp. 


avec quatre octets: trois pour le 008 P alpha : lettres 22 à 24 
numéro du registre et un pour le 007 O registre alpha : lettres 15 à 21 

numéro d’octet. La table des registres registre alpha : lettres 8 à 14 

d’état de la figure ci-contre occupe les 005 M registre alpha : lettres 1 à 7 

Hire 005 é 00F" St à on Sources : L'Ordinateur Individuel n° 24 à 28 et 31, et Synthetic programming on the 
a mémoire), les cinq précédents ( HP-41 C (en français aux Éditions du Cagire). 


à 004) codant par ailleurs les registres 
T, Z, Y, X et L de la pile opération- , 
nelle, ; 


Attention aux 


trous de mémoire . 


Les quatre derniers octets du regis- 
tre b codent l’adresse du pointeur de 
programme : celle de l’instruction que 
l’on est en train d’exécuter. En jouant 
avec cette adresse, rien n’empêche /& 
d'exécuter des programmes, par 
exemple, dans le module X- : 
FUNCTIONS ou, même, dans les , - 
registres ROO à RNN (à suivre...). ; 


Un derñier registre, c, est plus déli- 
cat d'emploi : les ’’memory lost”’ sont 
légion si l’on n’y prend garde. C’est à 
cause de la constante codée sur 12 bits 
en son milieu. Cette constante, 169, 
ne doit pas être modifiée ! Périodi- 
quement, la HP-4i C vérifie qu’elle 
s’y trouve et, si par malheur ce n’est 
pas le cas, provoque purement et sim- 
plement un *’memory lost”. 


ZREG est l’adresse (sur 12 bits) du 
premier registre statistique. ROO est 


ee  S NUS END P our assigner le Cric - voir LIST n° 1 - à une touche du clavier, il faut 


. . : une HP-41 C nue de toute extension. Seul le module TIME est 
Enfin, les 12 premiers bits du regis- | autorisé. 
tre e codent le numéro de la ligne du N'est-ce pas trop demander aux possesseurs de HP-41 CX qui possède 
programme sur laquelle se trouve le | en standard le module X-FUNCTIONS ? A moins de jouer du scalpel, on 
pointeur. ne peut l’ôter ! 
; Quand on connaît la carte et les Une solution existe pourtant : après le memory lost, exécuter un SIZE 
instructions synthétiques appropriées, | 272. Ensuite, tout fonctionne à merveille. 
un peu d’imagination permet de pro- 
grammer des applications bien surpre- 
nantes. À vous de jouer maintenant. Arnaud PERUT A 
Jean-Christophe KRUST 
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mp 
LES 
TS 


QUE LE GRAND CRIC ME CROQUE ! 


GARACTÈRES GRAPHIQUES DU MO5 


A LA POINTE DU CRAYON 


NE fonction du Basic du MO, 
DEFGRS$S, permet de définir des caractères 
originaux. Son utilisation n'est pas vraiment 
simple. Pour la remplacer, c'est tout 


un programme. 


Création de caractères 
Programme pour MOS 
Auteur Eric Tière 
Copyright LIST et l’auteur 


G TUMHE :CLEAR, , 128 

A CIM TAC. 73 GC TD 

A W=i:lale 

46 ‘ÆXXY DESSIN DE LA GRILLE *XX#* 
45 SCREEN 4:6.6:CLS:PRINT CHR#&C243 


ERA LINE €A:B3-CC D 

Fa LINE €D.C%-CB.4) 

84 A=A+#L:CeC+L:IF AfEBXL THEN 64 

82 LOCATE 2%,8:PRINT"Dessin";" 

25 XK#*Y POSITION ET REMPLISSAGE D'UNE C 
ASE X*X** 

80 INPUTPEN %,% 

S4 IF *x<A THEN 9Q ELSE IF X>=8#L THEN 15 


8 

95 IF Y<A THEN 94 ELSE IF Y>=8#L THEN 15 
[a] 

36 PLAY "LIGO" 

1AQ HX=IHTÉ RL HE VXSINTOTAL DE KSEKAEL : VaV2A 


i 118 EQKF GX, 2-4 4L 
ï 124 TACHEX, V4 del 
121 GCYXSRA: FOR 129 TO 7:GC 42 2AGCYAOET 
ACI,YXO:HEXT 1 
DEFGRSCY)2G QG 13.GC23,GC33:6c4).6G 


CS GC6 GC 7) 

: 123 LOCATE 25,18:FRINT GR$CY à 
124 FOR I=A TQ 7:LOCATE 17,2#I+1:PRINT G 
CTO:NEXT I 


14& GOTO 94 

145 ‘XXXX DESSIN FINI #%*#% 

154 PLAY "LZ4DOREMI" 

164 LOCATE 4.18: INPUT "Memorisation CO/N 
3 ":0$ 

17A IF O$="0" THEN V=y+1 

324 PRIHT:INPUT "Autre dessin CON) ":0$ 
32A IF OGs<i"0" THEN 418 

325 '#AYX PAZ DES VARIABLES: 
CARACTERE X#Y4 

34G FOR I1=4 TO 7 

354 FOR 9 TO 7 
- 364 TACI..1)=0 

237 SCREEH. ..1 

3eA MEXT LI 

394 FOR I=A TO 7:GCI)=Q:MEXT I 
4aa SATA 44 

410 HEXX FINI ÆXAX 

424 CLS:PRINT "On recaPpitule" 
434 FOR JI=1 TO V-1 

444 PRINT Ii": ":CHPSC 128410) 
45A NEXT I 

464 PRINT :END 


TRBLERL] ET 
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# Le Basic du MOS permet à 
l’utilisateur de définir ses pro- 

pres caractères grâce à la fonction 

DEFGRS, et c’est intéressant. 


Intéressant, certes. Mais si, comme 
nous, vous ne voyez pas directement 
que la définition d’un ‘‘as de pique”? 
est DEFGRS(I) = 8,28,62,127,127, 
28,62, alors cette fonction devient 
inutile. En revanche, le programme 
proposé ici la remplace tout en la sim- 
plifiant : plus besoin de feuille qua- 
drillée, ni de calculette ! 

Le fonctionnement en est fort sim- 
ple. Après le réglage du crayon opti- 
que, une grande grille de huit cases 
sur huit s’affiche. Elle représente la 
matrice d’un caractère. Pointez alors 


Un nouveau caractère 
créé à la pointe du crayon optique 


Li 


les cases que vous voulez noircir et les 
coordonnées apparaissent au fur et à 
mesure. Lorsque vous jugerez avoir 
fini la composition de votre caractère, 
pointez à l’extérieur de la grille, 


Le programme vous demande alors 
si vous désirez mémoriser votre 
œuvre : elle apparaît en taille normale 
et ses poids dans DEFGRS sont auto- 
matiquement calculés et affichés. 


Le programme boucle autant de 
fois que vous le désirez. Les carac- 
tères qui auront été mémorisés seront 
ensuite directement utilisables par 
GRS(i) ou CHR$(128 +i). 


On peut imaginer l’amélioration de 
ce programme par l’ajout de nouvel- 
les ‘‘commodités”. Pourquoi, par 
exemple, ne pas sauvegarder sur cas- 
sette les caractères dont vous êtes fiers 
et gérer ensuite ce fichier ? On peut 
aussi prévoir une gomme qui efface 
les cases noircies par erreur. Le pro- 
gramme serait un peu plus compliqué, 
mais l’utilisation en serait tellement 
simplifiée. 


Éric TIÈRE 


ul 


ù sv el ” 1 
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| 
| 
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. LES CARTOUCHES DU SPECTRUM  ! 


î - HACUNE des 
L EST BEAU 4 


LL EST BEA cartouches destinées 
CA... MON CT. au Spectrum contient 


MON davantage d'information 
CATALOGUE qu'elle n'en délivre 
normalement. Comment 
aller les repécher ? 


Avec le programme que nous 
vous proposons vous allez pou- 
voir étendre la fonction de CATA- 
LOGUE (CAT) normalement pré- 
sente en relisant les préambules, stoc- 
kés sur bande, concernant les pro- 
grammes ou les blocs de données. 
Effectivement la fonction CAT, sous 
la direction de l'interface ZX 1, per- 
met seulement de relire les noms de 
programmes ou de blocs de données 
enregistrés sur la cartouche. En prime 
le nombre de Koctets restant disponi- 
bles est affiché ou imprimé. Néan- 
moins les autres informations préci- 
sant si l’on a affaire à un programme, 
à un tableau numérique, à un tableau 
de caractères ou à un bloc d’octets 
sont absentes. 


A moins d’être méticuleux et 
d’avoir le temps de noter sur un 
cahier le contenu précis de chaque 
cartouche, il vous arrivera rapidement 
de ne plus savoir à quoi correspond 
tel ou tel nom. A fortiori s’il s’agit 
d’un bloc d’octets, comment retrou- 
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t 
1 
t 
| 
t 


ne. 


ver son origine d’implantation et sa 
longueur ? 


Tout possesseur de microdrives a 
reçu au moins une fois le compte 
rendu d’erreur ‘‘WRONG FILE 
TYPE” lors de la tentative de charge- 
ment d’un programme, parce que le 
nom correspondait à un bloc d’octets 
et non pas à un programme. 


Le nouveau 


CATalogue 


Cependant toutes ces précieuses 
informations sont écrites sur la car- 
touche. Un préambule où HEADER 
en anglais est enregistré au début de 
chaque sauvegarde (SAVE*‘‘m’’;1; 
‘nom’ pour un programme, suivi ou 
non de LINE, CODE, SCREENS, ou 
DATA). Ce préambule de 9 octets se 
décompose ainsi : 

e l’octet 1 définit le type de sauve- 
garde : 0 pour un programme, 1 pour 
un tableau numérique, 2 pour un 
tableau de caractères, 3 pour un bloc 


Programme de décodage du préambule 


1 CLEAR 30000: LOAD #"m 


5 


d’octets (on notera que ce sont les 
mêmes conventions dans les sauvegar- 
des magnétocassettes) ; 

e les octets 2 et 3 représentent la lon- 
gueur en octets de la sauvegarde ; 

e les octets 4 et 5 représentent 
l’adresse de l’origine de la sauve- 
garde ; 

e les octets suivants concernent le 
type 0, c-à-d les programmes Basic. 


C’est ainsi que les octets 6 et 7 indi- 
quent la longueur du programme seul 
(les octets 4 et 5 représentaient alors 
la longueur du programme et des 
variables). 


Quant aux octets 8 et 9, ils représen- 
tent la ligne Basic où doit s’autolancer 
le programme après chargement. 


L’utilitaire qui fait l’objet de cet 
article se compose de deux parties : 
une interface Basic et une routine en 
langage-machine longue de 60 octets. 
Pour ce qui est de la routine en 
langage-machine, vous avez deux pos- 
sibilités pour l’implanter . On peut la 
placer en DATA dans le programme 
principal dont on remplace la pre- 
mière ligne par 1 FOR n= 32000 TO 
32059 : READ a : POKE n,a : NEXT 
n. Dans ce cas, on écrira les DATAs 


“315 "michead" CODE 32000,60 


10 REM Decodage du HEADER 


20 REM 
30 


40 PRINT AT 10,2; "Decodage du preambule (HEADER) "; 
14,12; "programme BASIC"; TAB 1 


30 


RE ++ 


60 INPUT "nom sur la cartouche : "sa$ 


65 LPRINT 


70 LET a= LEN a$: POKE 31989,a: FOR n=1 TO a: 


80 RANDOMIZE USR 32000 


90 LET org=31980: LET type= PEEK org 


en ligne 180, par exemple. 

L’autre possibilité est de sauvegar- 
der le code sous la forme d’un enregis- 
trement sur cartouche. Pour créer cet 
enregistrement, on utilisera le pro- 
gramme suivant : 

1 FOR n=32000 TO 32059 : READ 

a : POKE n,a : NEXT n 
2 SAVE*#‘‘m’’;1;‘‘michead’”’ CODE 

32000,60 
3 VERIFY*‘“m’’;1;‘michead’”’ CODE 
4 DATA ...,...,...,...,... 

Dans les deux cas, les DATAs sont 
les codes décimaux présentés à la suite 
du désassemblage de la routine. 


Le programme 


_ Basic 


Avant d’appeler la routine, on 
‘“‘pokera’”’ le nom à rechercher sur la 
cartouche à une adresse où il pourra 
être retrouvé par celle-ci. On procé- 
dera de même pour la longueur du 
nom. 

Après l’appel de la routine, les 9 
octets du préambule correspondant à 
l’enregistrement ont été copiés dans 


AT 12,10; "pour soit :"5 AT 


2; "tableau de variables"; TAB 12; "bloc d'octets" 


POKE 31989+n, CODE a${n): NEXT n 


100 LPRINT ("Programme “ AND type=0) +("Tableau numerique “ AND type=1)+("Tablea 
u de caracteres “ AND type=2)+("Bloc d'octets " AND type=3);"<";a#s "ge 


110 LPRINT " 


Longueur en octets “+("Programme + Variables" AND NOT type)+( 


"Code" AND type);" : "; PEEK (org+1)+256*% PEEK (org+2) 


120 LPRINT " 

1350 IF type THEN 6G0 TO 60 

140 LPRINT 
* PEEK (org+6) 

150 LET a= PEEK (org+7)+ PEEK (or g+8) 

160 IF a <> 65535 THEN LPRINT " 

170 GO TO 60 
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Origine du bloc : “; PEEK (org+3)+256% PEEK (org+4). 


Longueur du programme sans les variables : *. PEEK (or g+5) +256 


Ligne d'autolancement : " sa 
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Programme source de la routine de décodage 


10 
20 
30 
40 
So 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
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#H HEADER 


ORG 


NOM EQU 
DSTR1 EQU 
NSTR1 EQU 
CURCHL EQU 
HEADER EQU 
LONG EQU 


32000 


31990 
237686 
23770 
236353 
31980 
31989 


Creation des variables sy stese 


RST 
DEFB 


; Sauvegarde 
EXX 
PUSH 
EXX 


8 
#51 


de l'adresse de retour au Basic 


HL 


sSelection du microdrive 1 


LD 
LD 


A,1 
(DSTR1) ,A 


sLongueur du nom du bloc 


LD 
LD 
XOR 
LD 
LD 
LD 
LD 


A, (LONG) 

L,A 

a 

H,A 

CNSTR1) ,HL 
HL , NOM 
(NSTR1+2) ,HL 


3; Ouverture du fichier 


RST 
DEFB 
PUSH 
POP 
LD 
LD 
LD 


8 
#22 

IX 

HL 

(CURCHL) ,HL 
B,9 

HL , HEADER 


3Lecture des 9 octets du HEADER 


BOUCLE PUSH 
PUSH 
CALL 
POP 
LD 
INC 
POP 
DIJNZ 


BC 
HL 
#19E6 
HL 
CHL) ,A 
HL 
BC 
BOUCLE 


sFermeture du fichier 


RST 
DEFB 
LD 
CALL 
EXX 
POP 
EXX 
RET 


Snonfilon. 


8 
#25 
A,2 
#1601 


HL 


les adresses allant de 31980 à 31988. 
Les lignes Basic à partir de 90 entre- 
prennent le décodage de ces octets en 
fonction des critères cités précédem- 
ment. 


La routine 


en langage-machine 


L’assemblage de la routine a été 
réalisé avec l’assembleur GENS2 de 
Hisoft. Concernant les mnémoni- 
ques, les nombres précédés d’un dièse 
représentent des nombres hexadéci- 
maux, les autres correspondent à des 
nombres décimaux. 


Les pseudo-instructions d’assem- 
blage, au début de la liste, initialisent 
les labels des différents pointeurs : 

e NOM pointe sur le début du nom 
poké par le Basic ; 

e LONG est la longueur du nom ; 

e HEADER pointe sur le début des 
9 octets de préambule lus sur la 
bande. 


Les variables système utilisées 
sont : 
e CURCHIL, pointeur des canaux ; 
e DSTRI, numéro d’unité de micro- 
drive ; 
e NSTRI, longueur du nom du 
fichier. 


Ouvrons une parenthèse pour 
décrire comment s’effectue l’appel de 
routines présentes dans la mémoire 
morte de l'interface ZX 1. Quand la 
mémoire morte du Spectrum est sélec- 
tionnée, la mémoire morte de l’inter- 
face ZX 1 est hors-circuit et récipro- 
quement. (La ligne ROMCS du bus 
de sortie du Spectrum est utilisée pour 
cette opération.) 
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Le programme source une fois assemblé 


Pass 1 errors: 00 
HEADER 
E1 


22515C 
LD 


0609 
LD 

NOM 21EC7C 
EQU LD 
DSTR1 DER 
EQU 
NSTR1 sLectur 
EGU e des 9 octe 
CURCHL ts du HEADER 
EQU 
HEADER CS BOUCLE 
EQU PUSH 
LONG ES 
Eau PUSH 

CDE615 
;Creati CALL 
on des varia E1 
bles systeme POP 

77 

LD 

RST 

253 
DEFB INC 

Ci 
3 Sauveg POP 
arde de l'’ad 
resse de ret 
our au Basic DINZ 


;Fermet 
EXX ure du fichi 
PUSH ce 


EXX 23 

5 Select 

ion du micro 
di drive 1 CDO116 
32D65C 7 7e D9 

ra (DSTRI Ei 


SEO02 


s Longue à 


ur du nom du 610 


bloc 
620 

LD 830 

6) 
éF 

LD Pass 2 errors: 00 
AF 

Table used: 97 from 

67 


LD H,A Codes bexadécimaux de la routine 
ED {NSTR1 


22DASC 


CF 31 D9 ES D9 3E 01 32 D6 SC 3A F5 
21F67C 1C 6F AF 67 22 DA 5C 21 F6 7C 22 DC 
LD HL , NOM $C CF 22 DD ES El 22 51 5C 06 09 21 EC. 

1C CS ES CD E6 15 El 77 23 CI 10 FS CF 


22DC5C 23 3E 02 CD 01 16 D9 El D9 C9 


LD (NSTR1 
+2) ,HL 


:0 t DRE F 
ru di ee Codes décimaux de la routine 


er 
207. 49 217 229 217 62 1 50214 92 
RST S8 245 124 111 175 103 34218 92 33 
246 124 34 220 92 207 34 221 229 225 
34 81 92 6 9 33 236 124 197 229 
205 230 21 225 119 35 193 16 245 207. 
35.62 2205 1 22217.22$ 217 201. 
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LES CARTOUCHES DU SPECTRUM 


L’instruction RST 8 sert sur le 
Spectrum de base à la gestion des 
comptes rendus d’erreur dont la liste 
est reproduite en page 215 du manuel 
de programmation. La valeur du 
DEFB, qui suit l’instruction RST 8, 
incrémentée d’une unité donnera le 
compte rendu correspondant. Les 
DEFB du Spectrum de base vont de 0 
à 26 (0 à 1A en hexadécimal). 


Si des valeurs comprises entre 27 et 
50 (1B et 32 en hexadécimal) sont 
mises dans les DEFB suivant l’instruc- 
tion RST 8, la mémoire morte de 
l'interface ZX 1 est sélectionnée et la 
routine correspondant au code est 
appelée. Il en est de même pour le 
DEBB 255 (FFh) qui donne le compte 


Bloc d'octets {chess?}> 
Longueur en octets Code 
Origine du bloc : 27001 


Bloc d'octets <chess?> 
Longueur en octets Code 
Origine du bloc : 32501 


Programme <echec} 


Longueur en octets Programme + 


Origine du bloc : 25813 


Longueur du programme sans les 


Ligne d'autolancement : 


Programme <r- Lun > 


Longueur en octets Programme + 


Origine du bloc : 23813 


Longueur du programme sans les 


Ligne d'autolancement : 


Programme <E tir € > 


Longueur en octets Programme + 


Origine du bloc : 23813 


Longueur du programme sans les 


Ligne d'autolancement : 


Bloc d'octets <taur- ce 1 > 
Longueur en octets Code 
Origine du bloc : 16384 
Bloc d'octets <tur c2> 
Longueur en octets Code 


Origine du bloc : 50651 


Programme {ture > 


Longueur en octets Programme + Variables 


Origine du bloc : 238135 


Longueur du programme sans les variables : 


Ligne d'autolancement : 
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rendu ‘Program finished’. 


Les valeurs des DEFB comprises 
entre 51 et 254 (33 et FE en hexadéci- 
mal) ne correspondent à rien et ren- 
voient le compte rendu ‘Hook code 
error’. Hook code n’est pas facile à 
traduire ; disons que les Hook codes 
accrochent la mémoire morte de 
l'interface ZX 1. Pour la suite, nous 
continuerons de les appeler Hook 
codes, puisque c’est ainsi qu’ils sont 
dénommés dans les comptes rendus. 


Lors de l’appel d’une routine conte- 
nue dans la mémoire morte de l’inter- 
face, les registres ne sont pas sauve- 
gardés et doivent donc être mis sur la 
pile avant l’appel, pour être récupérés 
au retour. Notamment le registre 
H’L’ doit être préservé, en général, 
car il contient l’adresse de retour au 
Basic. 


: 36540 


5: 360 


Variables : 169 
variables : 169 
10 
Variables : 253 
variables : 253 
11 
Variables *: 151 
variables : 151 
: 6912 
: 14885: 
: 25857 
24827 


225 


DEMZ INDEZ LE CATALOGUE ! 


Dans notre routine de décodage du 
préambule nous utilisons trois de ces ” 
Hook codes. 


Le premier correspond au DEFB 
31h. Ce Hook code sert à créer les 
nouvelles variables système indispen- 
sables à la gestion de l’interface ZX 1. 
Donc, avant de se servir des lecteurs 
de cartouche par l’intermédiaire du 
langage-machine, cette instruction 
permet de s’assurer que les nouvelles 
variables système ont bien été créées. 


Le fichier dont le nom a été intro- 
duit par le programme Basic de déco- 
dage est ensuite ouvert grâce au Hook 
code 22h, équivalent à la fonction 
Open File. L'ouverture du fichier sert 
à rechercher le premier enregistrement 
physique correspondant au nom 
donné. Ce premier enregistrement est 
lu puis copié dans la mémoire-tampon 
du canal. Les 9 octets du préambule 
peuvent alors être copiés à l’emplace- 
ment que nous avons choisi (adresse 
31980), avant la fermeture du fichier. 


Cette fermeture est obtenue grâce 
au code 23h, puis le canal de sortie est 
ouvert à nouveau sur le téléviseur. 
L'adresse de retour au Basic est alors 
restaurée. 


| Les résultats 


Vous pouvez voir ci-contre un 
exemple de relecture d’une cartouche. 
Le programme Basic dirige les sorties 
vers l’imprimante, mais vous pouvez 
tout aussi bien diriger celles-ci vers le 
téléviseur en changeant chaque ins- 
truction LPRINT par PRINT. Vous 
pouvez de même les enregistrer sur 
cartouche par un PRINT dièse. 


Vous avez maintenant les principes 
de base du fonctionnement des micro- 
drives (1). Essayez de réaliser des pro- 
grammes qui les utilisent et — pour- 
quoi pas ? — proposez-les nous. 


Benoit THONNART 


(1) Pour en savoir plus, vous pouvez consulter 


utilement l'ouvrage du Dr lan Logan, Spectrum 
microdrive book, publié par Melbourne House 
Publishers Ltd, Church Yard, Tring, Hert- 
fordshire HP 23 SLU. 
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UN UTILITAIRE POUR LE PC-1500 


GESTION DES ERREURS 


ES messages 

d'erreur en 
français, simuler les 
fonctions ERN, ERL 
et RESUME... C'est 
possible, en Basic, avec 
le programme ERR. 


Le Basic du PC-1500 est 

incomplet en ce qui concerne la 
gestion des erreurs qui peuvent inter- 
venir lors de l’exécution d’un pro- 
gramme. Dans la plupart des cas, on 
obtient un message du genre de celui- 
ci : 


ERROR 38 IN 100 


C’est un peu laconique, non ? 
L'erreur 38, après consultation du 
manuel, s’avère être une division par 
zéro. Donc, en ligne 100 du pro- 
gramme cette opération incorrecte est 
réalisée. 


PV CHEF! ONE ERREUR 
S'EST INTRODUITE 
DANS LE PC !! 


ON VA TOUT 
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Mais le programme est stoppé. 
Dans certains cas, des erreurs font 
partie du domaine du possible et le 
programme doit pouvoir les traiter 
sans pour autant être stoppé définiti- 
vement lorsque l’erreur survient. 


C’est le rôle de l’instruction ‘‘ON 


N° de l’erreur 


N° de ligne 
Adresse de l’erreur 


ERROR GOTO...”’ qui provoque un 
branchement à la ligne ‘‘..”’ dès 
qu’une erreur se produit dans l’exécu- 
tion du programme. Ainsi ces lignes : 


1 : ON ERROR GOTO ‘‘ERR’’ 
10 : A = A/0 


1000 : ‘‘ERR’’ PRINT ‘ERREUR’... 
prépare l’exécution de la routine de 
gestion d’erreur ‘‘ERR’”’ (ligne 1) ; 
provoque une erreur 38 (ligne 10) ; et 
affiche le message ‘ERREUR’. 


On peut maintenant programmer, 


après la ligne 1000, un sous- 


EH BIEN, TSOCCUPER 


DE Son CAS! 


programme de gestion d’erreur. Deux 
données nous manquent : le numéro 
de l’erreur (ERN) et le numéro de la 
ligne (ERL) où elle s’est produite. 

L’encadré ci-dessous donne des 
expressions Basic qui calculent ces 
valeurs. 


Les données en Basic 


PEEK &789B 
PEEK &78B4*256 + PEEK&78B5 
PEEK &78B2*256 + PEEK&78B3 


Et l’on y trouve l’essentiel de notre 
routine de gestion des erreurs. Si on 
connaît le numéro, rien de plus simple 
que d’afficher des messages d’erreur 
en français, par exemple : 

IF PEEK &789B — 
“DIVISION PAR 0” 


Quant au numéro de la ligne, on 
préfèrera l’expression STATUS 4 qui, 
exécutée en toute première instruction 
de la ligne ‘‘ERR’”’ (voir le pro- 
gramme), retourne le numéro de la 
ligne contenant la dernière instruction 
exécutée, donc, celle qui contient 
l'erreur. 


38 PRINT 
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UN UTILITAIRE POUR LE PC-1500 


1: ON ERROR GOTO 
ERR 


1888: "ERR"A= 


STATUS 4: 
BEEP. 1: PAUSE 
"ERREUR"; 
PEEK &789B;" 
EN";A 


1201:B=PEEK 8789B 
1802: 1F B=2PAUSE 


“"DONNEE  INCO 
RRECTE" 


1993: IF B=2PAUSE 


"NEXT INCORR 
ÉÊT" 


1884:1F B=dPAUSE 


"READ SANS P 
LUS DE DONNE 
ES 


1805:1F B=GPAUSE 


“UARIABLE NO 
N DECLAREE" 


1886:1IF B=7PAUSE 


"UARIABLE DE 
TYPE INCORR 
ECT 


1987: 1F B=38PAUSE 


"DIVISION PA 
R ZERO" 


1888:REM AUTANT D 


E MESSAGES Q 
UE SOUHAITÉ 


1818:RESTORE A:A= 


(PEEK &78BE- 
128)%x256+ 
PEEK &78BF-1 
:A=A+PEEK A+ 
l'A=PEEK A+ 
PEEK (A+1): 
GOTO À 
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Nous pouvons analyser le pro- 
gramme ‘‘ERR’’, reproduit ci-contre. 
Entre la ligne n° 1 et la ligne 1000 on 
peut programmer n’importe quoi. Par 
exemple, afin de tester le programme, 
les lignes : 

10 : A = A/0 : REM ERREUR 
25 : BEEP 5 : END 


Lors de l’exécution, la ligne 10 pro- 
voque l’erreur. Le programme 
“ERR’” va successivement afficher : 
ERREUR 38 EN 10 
DIVISION PAR ZERO 
avant de renvoyer l’exécution, auto- 
matiquement, à la ligne qui suit 
immédiatement celle de l’erreur, ici la 
ligne 25. 

En 1000, on saisit (STATUS 4) le 
numéro de la ligne fautive et, en con- 
sultant aussi la variable système 
&789B, on affiche le premier message 


d’erreur. Puis, de 1001 à 1008, six- 
types d'erreurs sont analysés. Ce 
choix est arbitraire, on peut très bien 
traduire en français tous les messages 
d'erreur en fonction de leur numéro. 
Ceci conduit à l’affichage du second 


message. 


Enfin, la fonction Basic RESUME 
— absente dans le PC-1500 et qui fait 
se poursuivre l’exécution à la ligne 
suivant l'erreur — est réalisée à la 
ligne 1010. 


Une variable système (&78BE-BF), 
celle du pointeur de RESTORE est 
consultée après un RESTORE. Elle 
retourne l’adresse du code de lon- 
gueur de la ligne où l’erreur s’est pro- 
duite. 


Connaissant cette adresse et la lon- 
gueur de la ligne, on peut, à l’aide 
d’une simple addition, trouver 
l’adresse du numéro de la ligne sui- 
vant celle où l’erreur s’est produite. 


Il ne reste alors plus qu’à calculer 
ce numéro de ligne dans A avant d’y 
diriger l’exécution d’un simple GOTO 
A. 


Nous savons donc maintenant 
déterminer complètement un proces- 
sus de gestion des erreurs du PC- 
1500, les applications sont — outre la 
simple francisation des messages 
d’erreur — nombreuses et trouveront 
sans peine leur place dans vos pro- 
grammes. 


Jean-Christophe KRUST 
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LE LANGAGE LOGO 


PETITS COURS 
ET TRAVAUX DIRIGÉS 


N Logo, rien ne distingue les données des 

Drogrammes : une procédure peut étre 
définie et traitée comme une variable. En 
particulier, étre créée ou modifiée par une autre. 
Une procédure peut donc évoluer en fonction 
d'événements externes. On la dit alors 
intelligente”, par analogie avec l'homme 


qui s'éduque. 


En Logo, une procédure est 
introduite par le mot POUR 
suivi d’un nom et de l’ensemble éven- 
tuel des paramètres formels, chaque 
paramètre étant précédé par deux- 
points (:). Par exemple : 
POUR DOUBLER :A 


La procédure se termine par le mot 
FIN. Ainsi définie, elle ne peut pas 
être modifiée par une autre. Seul le 
programmeur y aura accès, grâce à 
l’éditeur de texte dont les commandes 
sont interactives. Pour écrire des pro- 
cédures modifiables, il suffit de leur 
donner une structure d’objet Logo, 
c’est-à-dire de les transformer en lis- 
tes. : 


Un premier problème se présente : 
transformer en liste une procédure 
déjà définie avec POUR. On utilise 
alors la primitive TEXTE — ou 
* DEFINITION — en donnant un nom 
à la liste créée. 
POUR TRAIT :N 
AVANCE :N 
FIN 
DONNE ‘T TEXTE :TRAIT 
AFFICHE :T 
[[ N J[ AVANCE :N ]] 


Ce programme appelle quelques 
remarques : 
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e la liste T créée est une liste de lis- 
tes ; ‘‘T est son nom ; son contenu est 
le texte de la procédure TRAIT et 
c’est pourquoi nous écrirons DONNE 
T TEXTE :TRAIT et non 
“TRAIT ; 

e la première liste est celle des para- 
mètres, elle est obligatoire ; en leur 
absence, elle est vide maïs existe ; les 
noms des paramètres ne sont plus pré- 
cédés d’aucun caractère ; 

e chaque instruction est en elle-même 
une liste ; 

e le mot FIN n’apparaît plus ; 

e il n’est pas interdit d'écrire 
DONNE ‘TRAIT TEXTE :TRAIT. 


La liste T est maintenant un objet 
Logo, manipulable par les primitives 
PREMIER, SAUFPREMIER, DER- 
NIER, SAUFDERNIER, MOT, 
PHRASE, LISTE, INSEREPRE- 
MIER, INSEREDERNIER. Écrivons 
par exemple une procédure pour 
modifier T en.lui ajoutant un paramè- 
tre et une instruction. 

POUR MODIFIER 
DONNE ‘T (LISTE [ N D ] 
DERNIER :T [ DROITE D ]J) 
FIN 
AFFICHE :T 
[[ N D J[ AVANCE :N] 
[ DROITE D ]] 
EDITE T 
POUR T :N :D 
AVANCE :N 
DROITE :D 
FIN 


Un autre problème réside dans 
l’écriture d’une procédure sous forme 
de liste. On utilisera pour cela la pri- 
mitive DEFINIS (à condition de res- 
pecter les remarques faites ci-dessus, 
avec la primitive TEXTE). On aurait 
pu écrire directement DEFINIS “T [[ 
N JI AVANCE :N ]}] 


Dans ce cas, il faut faire attention : 
le nom de la procédure est toujours 
précédé d’un guillemet (‘‘) alors qu’il 
ne l’était pas avec POUR. 


RAPPEL DE LA SYNTAXE LOGO 
| Poe est un langage procédural. Les procédures disponibles à l’initia- 


lisation sont appelées primitives. Celles que vous créez sont nommées 
procédures. Une procédure commence par le mot POUR et se termine par 


FIN. 


En Logo, un nombre est écrit tel quel, éventuellement précédé d’un 
signe. Un mot est toujours précédé de guillemets (on ne referme pas les 
guillemets à la fin du mot). Une liste est encadrée de crochets carrés fl. 
Les noms de variables, qui ne sont pas liés à leur contenu, .sont-des mots. 
Le contenu de la variable ‘‘A.est.:A: 
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Quant à transformer une procédure 
écrite avec DEFINIS en une procé- 
dure écrite avec POUR, cela semble 
bien inutile : les procédures ont le 
même statut vis-à-vis de l'éditeur, 
quel que soit leur mode de définition. 
A l'édition, celle qui est écrite avec 
DEFINIS apparaît sur l’écran avec les 
mots POUR et FIN, et se corrige de 
la même façon ; à la fin, elle reprend 
sa structure de liste. Il n’est donc pas 
nécessaire de définir une primitive 
pour transformer la forme DEFINIS 
en la forme POUR. D'ailleurs, en 
mémoire, les procédures sont implan- 
tées comme des listes de listes. 


Créons un 


mini-langage 


Par exemple, la modification d’une 
procédure en fonction du hasard se 
présente comme suit : 

POUR ITINERAIRE 

SI HASARD 2 = 0 ALORS 
DEFINIS ‘‘P [[ J[ AV 10 DR 5 ]] 
SINON DEFINIS ‘‘P [[ J[ RE 10 GA 
SI] 

SI LISCAR = ‘‘A ALORS EXE 
CUTE :P SINON AFFICHE 
TAPER A SVP ] 

ITINERAIRE 

FIN 


L'utilisateur doit taper sur la lettre 
A, sinon un message s’affiche. 
Lorsqu'il frappe A, le tirage au 
hasard donne soit 0 et dans ce cas la 
procédure P est définie comme AV 10 
DR 5, soit donne 1 et la procédure P 
est RE 10 GA 5. A la frappe, P est exé- 
cutée (remarquer le deux-points qui le 
précède) puis redéfinie en fonction 
d’un nouveau tirage au sort. La procé- 
dure ITINÉRAIRE est récursive 
(récursion terminale). Il faut remar- 
quer aussi la liste vide obligatoire des 
paramètres de P. 


Logo travaille selon deux modes : 
le mode PILOTAGE dans lequel les 
instructions sont exécutées directe- 
ment mais ne sont pas mémorisées, et 
le mode PROCEDURAL qui mémo- 
rise les instructions sans les exécuter. 
Nous pouvons définir un troisième 
mode qui exécute directement les ins- 
tructions, et les mémorise en vue 
d’une éventuelle définition de procé- 
dure à la fin. Pour ce faire, il con- 
vient d’établir un ‘‘mini-langage”” 
APPRENDS introduit le mode, FIN 
annonce la fin des instructions, 
ANNULE détruit la dernière instruc- 
tion exécutée. 
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Bien évidemment, ce type d’écriture 
de procédure ne permet pas d’intro- 
duire des paramètres. Mais des procé- 
dures correspondantes existent : 

e ‘PROC est le nom provisoire de la 
liste des instructions qui constitueront 
éventuellement le corps d’une procé- 
dure ; 

e LISLISTE permet d’entrer une 
ligne au clavier et de lui donner un 
nom si nécessaire ; cette ligne a une 
structure de liste ; elle doit être termi- 
née par un ‘‘retour-chariot”? ; 

e ‘‘REP est le nom donné à la liste 
entrée au clavier ; 

e ‘‘NOM est le nom donné à la pro- 
cédure créée. 


Ce qui permet d’établir la liste sui- 
vante : 
POUR APPRENDS 
VIDEECRAN 


DONNE ‘‘PROC II ]] 

PILOTE 

AFFICHE [ VOULEZ-VOUS 
CONSERVER VOTRE TRAVAIL ? ] 

AFFICHE [ SI OUI, TAPEZ 
SON NOM, PUIS ‘RETOUR’ ] 

AFFICHE [ SI NON, TAPEZ 
‘RETOUR’ ] 
DONNE ‘NOM PREMIER LIS 
LISTE ) 

SI NON :NOM 
:NOM :PROC 

FIN 

POUR PILOTE 

DONNE ‘REP LISLISTE 

SI :REP = [ FIN ] STOP 

SI :REP = [ ANNULE |] 
ALORS ANNULER SINON EXE 
CUTE :REP DONNE ‘PROC INSE 
REDERNIER :REP :PROC 

PILOTE 

FIN 


“DEFINIS 


LA PROCÉDURE DESSIN 


POUR DESSIN 
AV 2DR 35 
SI CAP = 
DESSIN 
AV. 10 GA 5 
FIN 


0 ALORS STOP 


Supposons la tortue au centre, CAP au NORD ét observons les effets de chaque 


ligne de la procédure : 


AV 2 DR 5 : le CAP prend la valeur 5. 


SI CAP = 0 ALORS STOP : 


le CAP n'étant pas égal à 0, on continue. 


DESSIN: on abandonne la procédure initiale qui n’est pas terminée puisqu'il 
reste à faire AV 10 GA 5 (qui appellera la procédure DESSIN considérée comme. 


üne autre procédure). 
AV 2DRS: 
SI CAP = 


le CAP prend la valeur 10. 
0 ALORS STOP : on continue. 


DESSIN : abandon de la procédure DESSIN non terminée pour appeler DES- 


SIN, et ainsi de suite. 


Au 72° appel, le CAP prend la valeur 9. Donc STOP et retour à la 71° procédure 
DESSIN qui exécute maintenant AV 10 GA 5 et s’arrête sur le mot FIN. Ce mot pro- 
voque le retour à la 70° procédure DESSIN qui, etc. 

Au STOP de la 72° procédure DESSIN, il reste à faire 71 fois l'instruction AV 


10 GA 5. Ce qui donne le dessin suivant : 


Pour refermer le cercle, il suffit d'inclure dans DESSIN, la 72° instruction AV 10 


GA 5: 
POUR DESSIN 
AV 2DR 5 


SI CAP = 0 ALORS AV 10 GA 5 STOP 


DESSIN 
AV 10 GA 5 
FIN 5 
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LOGO : PETITS COURS ET TRAV AUX DIRIGÉS 


POUR ANNULER 

AFFICHE PHRASE 
NULE ] DERNIER :PROC 

DONNE ‘PROC SAUFDER 
NIER :PROC 

VIDEECRAN 

EXECUTE :PROC 

FIN 


Il faut savoir que EXECUTE :REP 
peut générer un message si la ligne 
introduite n’est pas exécutable. Ce qui 
entraînera un retour à Logo. Il faudra 
alors taper à nouveau APPRENDS 
pour réinitialiser ‘PROC. Tout n’est 
pas perdu pour autant: taper 
PILOTE permet de continuer sans 
perdre les instructions déjà mémori- 
sées. Une meilleure solution consiste à 
‘“ATTRAPER’ les erreurs et à les 
envoyer à une procédure chargée à la 
fois de les gérer et de retourner au 
contrôle de la procédure dans laquelle 
lPerreur s’est produite, sans arrêter 
l’exécution. 


[JAN 


Et maintenant, 


quelques colles 


Dans le numéro 1 de LIST, quatre 
procédures à méditer vous étaient 
proposées : DESSIN, AA, BB, CC 
(les commentaires qui les concernent 
se trouvent dans les encadrés ci- 
contre). En voici de nouvelles : 

POUR A :P 


COPIEDEF MOT ‘:. :P :P 

DONNE ‘‘T TEXTE :P 

DONNE ‘‘V (LISTE PREMIER 
#1) 

DONNE ‘‘V (LISTE :V 


(PHRASE [| ENTREE DANS ] :P}) 
B PREMIER :T 
C SAUFPREMIER :T 
DEFINIS :P :V 
FIN 


POUR B :W 

SI :W = [ ] STOP 

DONNE ‘V LISTE :V (LISTE 
(AFR [ LA VALEUR DE ] PRE 


MIER :W ‘“EST) (MOT ‘‘: PRE 
MIER :W)) 

B SAUFPREMIER :W 

FIN 

POUR C :X 

SI :C = [ ] STOP 
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‘‘AFR PREMIER :X) 


MIER :X 


DONNE ‘‘V LISTE :V (LISTE COPIEDEF :Q MOT ‘. :Q 
EFFACE MOT “. :Q 
DONNE ‘‘V LISTE :V D FIN 


DONNE “*V LISTE :V PRE Les questions que nous vous sou- 


mettons sont : que fait l’enchaîne- 


€ SAUFPREMIER :X ment des quatre premières procédures 


FIN et que fait la dernière ? 

POUR D Pour mieux répondre, il faut savoir 
DONNE ‘“Z LISLISTE due: 

RETOURNE + COPIEDEF ‘‘MOTI ‘‘MOT2 
FIN prend Île texte de la procédure 
POUR E :Q “MOT2 et le recopie dans une nou- 


LES PROCÉDURES AA, BB ET CC 


POUR AA :LI 

SI :L1 = [} ALORS AFFICHE :L1 STOP 
BB:Li{] . 

FIN 


POUR BB :L2 :L3 

SI:L2 = [| ALORS AFFICHE :L3 NIVEAUSUP 
CC: 13 

FIN 


POUR CC :L4 :LS :L6 : 

SI :LS = [] BB SAUFPREMIER :L4 PHRASE PREMIER :L4 :LS 

SE PREMIER :L4 > DERNIER :L5 ALORS BB SAUFPREMIER :L4 
(PHRASE :L5 PREMIER :L4 :L6) SINON Le :L4 De PÉRRRMIER :L$ DER 
NIER :LS :L6 “ 

FIN 


Ces procédures exécutent un tri par ordre croissant — où un tri alphabétique 
pour certaines versions Logo capables de comparer deux mots. 

Elles sont nécessaires pour introduire et initialiser deux listes vides : la première 
contiendra la liste triée et la seconde sera une liste intermédiaire contenant la fin de 
la précédente. 

Les éléments de la liste à trier sont pris un par un et enlevés au lu et à mesure. 
Le tri sera terminé lorsque la liste sera vide. L'élément pris est-il supérieur au der- 
nier de la liste déjà triée ? Si oui, il est mis à la fin et l'élément suivant est pris. 
Sinon, le dernier élément de la liste triée est transféré au début de la liste intérmé- 
diaire et la recherche reprend avec la liste ainsi amputée. Les transferts ont lieu 
jusqu’à ce que l'élément . placé et la liste triée est concaténée : la liste intermé- 
diaire. 


Il est bien : fare d'avoir à trier une liste vide. La ligne qui teste L1 dans la procé- 
duré AA est donc inutile. Il reste encore une ‘‘bogue”’. Elle se produit si deux élé- 
ments de la liste à trier sont égaux. Il ne faut donc pas tester si l'élément à placer 
est supérieur au dernier. élément de la liste triée, on donc les ne corri- 
gées : : 


POUR AA LI. 
BB:LI[ 
FIN 


POUR BB 12:13  . 

SI :L2 = [] ALORS AFFICHE :L3 NIVEAUSUP 
CEST 13 ie 

FIN 


POUR CC :LA4 :LS LG. 

SI:LS = [] BB SAUFPREMIER :L4 PHRASE PREMIER :L4 LS 

SI NON PREMIER :L4 < DERNIER :L5 ALORS BB SAUFPREMIER :L4 
(PHRASE :LS PREMIER :L4 :L6) SINON CC LA SAUFDERNIER LS DER 
NIER :LS$ :L6 

FIN 
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LE LANGAGE LOGO. 


PETITS COURS ET TRAVAUX DIRIGÉS 


velle procédure dont le nom est 


‘MOT! ; 

e le parenthésage permet de donner 
un nombre quelconque d’arguments 
aux primitives qui, sans lui, en néces- 
siteraient deux ; 

e AFR est identique à AFFICHE 
mais ne provoque pas de retour à la 
ligne ; 

e RETOURNE revient à la procédure 
appelante en retournant un résultat ; 
par exemple, RETOURNE ‘VRAI 
retourne le mot VRAI ; 

e EFFACE détruit une procédure de 
l’espace de travail. 


C’est une vache ? 


Non, non et non ! 


Le programme ‘‘intelligent”’ qui est 
généralement donné en exemple, se 
nomme ‘‘ANIMAUX. Sauriez-vous le 
retrouver sachant qu’il possède les 
caractéristiques suivantes (les majus- 
cules représentent les messages affi- 
chés par l’ordinateur et les minuscu- 
les, les réponses faites par l’utilisa- 
teur) : 

PENSE A UN ANIMAL. JE 
VAIS LE DEVINER 

TON ANIMAL A-T-IL QUA- 
TRE PATTES ? 


Supposons que la réponse de l’uti- 
lisateur soit oui. 
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C’EST UNE VACHE 

non 

A QUEL ANIMAL PENSAIS- 
TU ? 

un cheval 

QUELLE QUESTION DOIS-JE 
POSER POUR DISTINGUER UNE 
VACHE D'UN CHEVAL ? 

court-il vite ? 

OK J’AI COMPRIS, RECOM- 
MENÇONS 


Au coup suivant, si la réponse à la 
question TON ANIMAL A-T-IL 
QUATRE PATTES ? est oui, la pro- 
chaine question sera TON ANIMAL 
COURT:-IL VITE ? Et si la réponse 
est oui encore, le programme propo- 
sera UN CHEVAL. Et si ce n’est pas 


un cheval, il faudra encore taper la 
question à poser pour distinguer le 
cheval de l’animal proposé. A chaque 
nouveau tour, le programme s’enri- 
chit. Bien ‘‘éduqué”’, il devient pres- 
que intelligent. 

Vous avez certainement des idées 
pour écrire des procédures qui en 
créent d’autres, qui s’auto-détruisent, 
qui ‘‘mürissent”” en fonction de con- 
ditions extérieures... Un conseil : 
n’allez pas trop vite, ne visez pas trop 
loin, ne cherchez pas encore à faire de 
votre ordinateur un bon adversaire 
aux échecs ! 


Robert D'AGUESSE 
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LANGAGE-MACHINE DU 6502 


NOIR ET BLANC 
ET VICE-VERSA 


OMME Ja plupart des ordinateurs, ceux 

dont le processeur est un 6502 (Oric ou 
Apple par exemple) ne se programment pas 
seulement en Basic. Vous pensez peut-être que le 
langage-machine est trop difficile à apprendre ? 
Avant d'y renoncer, faites tout de même 


un petit essal.… 


É Il existe plusieurs bonnes rai- 
sons de programmer en lan- 
gage-machine : 

e mieux comprendre ‘‘le langage du 
processeur’”’ et donc le fonctionne- 
ment des ordinateurs ; 

e trouver une solution à la lenteur 
d’exécution de certains ensembles 
d'instructions du Basic ; 

e compléter le langage Basic. 


Les fonctions techniques les plus 
courantes existent déjà comme ordres 
du Basic, on les appelle des 
‘“routines””. Ce sont, par exemple, les 
instructions qui permettent de travail- 
ler avec les périphériques : CLS efface 
l'écran, GET A$ met dans A$ un 
caractère obtenu sur le clavier, ZAP 
émet un son élaboré, etc. Mais il y a 
d’autres fonctions qui ne se trouvent 
pas dans le Basic, il faut donc les pro- 
grammer soi-même. 


Le Basic, disponible quand on met 
en route l’ordinateur, contient heu- 
reusement des instructions qui per- 
mettent de créer et d’utiliser des ‘‘rou- 
tines’’ en langage-machine. Sur 
lOric, par exemple, ce sont : POKE, 
CALL, USR, etc. 
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En langage-machine, on peut prati- 
quement faire tout ce que l’on veut 
mais à deux conditions. Il faut : 

e savoir à quel endroit implanter la 
routine en langage-machine ; 

e déterminer dans le moindre détail 
tout le travail à faire effectuer par la 
routine. 


Sauvegarder 


avant de lancer 


C’est le deuxième point qui est le 
plus difficile à réaliser, car on ne dis- 
pose pas d’un ‘‘détecteur’’ d’erreurs 
comme en Basic : à la moindre bogue, 
il ne reste plus qu’à débrancher et à 
tout reprendre à zéro. 


La prudence conseille donc de tou- 
jours faire une sauvegarde d’un pro- 
gramme avant de l’exécuter : SAVE 
“PROGRAMME”, puis RUN. 


C’est une routine d’inversion vidéo 
sur Oric qui nous servira d'exemple. 
Il s’agit d’inverser un dessin blanc sur 


fond noir, en dessin noir sur fond 
blanc et réciproquement, en mode 
graphisme haute résolution. 


Première question donc : où placer 
la routine ? Sûrement pas dans la par- 
tie utilisée par le programme en Basic 
ou par l’écran, de #500 à #BFEO, la 
routine serait ‘‘écrasée”. Au-dessus 
de ces adresses, il n’y a pas de place. 
Mais à partir de #400, l’Oric laisse un 
peu de place pour une petite routine. 


Inversion 


| point par point. . 


En graphisme haute résolution, 
Pimage de l’écran est constituée de 
8 000 cellules de 6 pixels chacune. 
Chaque cellule est un caractère en 
mémoire centrale dont 6 bits sur 8 
correspondent à un pixel, c’est-à-dire 
un point sur l’écran. Si l’un des six 
bits dans le caractère est à 1, le point 
correspondant brille. Sinon, il est 
éteint. 

Le problème consiste donc à inver- 
ser la valeur de tous les bits de ces 
caractères en veillant à ne pas toucher 
aux deux bits de poids fort (ce qui 
aurait des effets inattendus). 


On pourrait utiliser l’ordre Basic 
FILL pour chacune des 8 000 cellules 
mais cela prendrait plusieurs minutes. 
Une routine en langage-machine fera 
le même travail en un cinquième de 
seconde. 


Le processeur de l’Oric, le 6502, 
possède un registre À pouvant conte- 
nir n’importe quel caractère. 
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POUR LES UTILISATEURS DE L APPLE 


L’Apple, lui aussi, contient un 6502, et lé mode … haute résolution uti- 


lise 40 cellules pour chaque ligne. 


Mais chaque cellule se compose de 7 pixels, ce qui donne pour une ligne 40x7 
— 280 points (le huitième bit donne la couleur des 7 points). Par conséquent, l’ins- 
truction EOR doit utiliser un masque de 8 bits à 1. 


De plus, l’image de l’écran en mémoire centrale va de #2000 à #4000, et le pro- 


gramme devient : 

A9 20 LDA #20 
85 07  STA 07 
AO 00 LDY #00 
84 06 STY 06 

Bi 06  LDA (06),Y 
49 EOR #FF 
91 06 STA (06),Y 
C8 INY 

DO F7 BNE 308 
E6 07 INC 07 
AS 07 LDA 07 
C9 40 CMP #40 
DO EF BNE 308 
60 RTS 


range dans 06 


charge 


premier bloc écran dans A 
range dans 07 (octets disponibles) 
début de bloc dans Y 


charge le caractère désigné par 06 et Y 
masque d’inversion de 7 bits 

range à la même place 

caractère suivant 

si Y non égal zéro remonte de 7 (le LDA) 
bloc suivant (+1) 


et compare #40 = dernier bloc écran 
si non remonte de 17 (le LDA) 
retour au programme principal 


Dans la mémoire de l’Apple, il y a de la place disponible pour nos routines à 


partir de #300. 


On utilise l'instruction EOR X pour 
combiner chacun des bits du registre 
A avec les bits du caractère X (appelé 
masque) selon une relation booléenne 
exclusive : chaque bit de X à 1 inverse 
le bit correspondant de A. Par exem- 
ple : 


Dans A, on obtient ainsi l'inverse 
des six bits de poids faible. 
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Un registre de huit bits, autrement 
dit d’un octet, ne peut contenir que 
les valeurs de 0 à 255. C’est, et de 
loin, insuffisant pour les 49 152 
caractères. 


Une première solution consiste à 
découper la mémoire en ‘‘pages’”” de 
256 caractères, elles-mêmes numéro- 
tées de 0 à 192. On réserve une page 
unique, pour les échanges entre pages. 
La page zéro ne demande pas à être 
numérotée car elle va de O à 255 dans 
la mémoire. 


L'utilisation de la page zéro fait 
gagner du temps et de la place puis- 


que c’est un ‘‘adressage court” mais 
tous les caractères ne sont pas dispo- 
nibles : les 50 premiers à l’exclusion 
de 18, 19, 26, 27 et 28 sont utilisables 
mais, à partir de 52, il vaut mieux 
s'abstenir. 


Une deuxième solution est de 
découper l’information en blocs de 
256 caractères, l’adresse de chaque 
bloc étant mise en page zéro. On uti-. 
lise alors un registre pour compter les 
caractères du bloc. 


Le 6502, processeur de l’Oric, est 
pourvu d’un registre Y dont la valeur 
s’ajoute au contenu de l’adresse lors 
des échanges avec le registre A. 

L'écran est découpé en plusieurs 
blocs de #A0 à #BF (32 blocs adres- 
sés par 02 de la page zéro). Chaque 
bloc est constitué de 256 caractères de 


Inversion vidéo. 

Programme en danpane-nachine 6502 
Version pour Oric-1 

Auteur Max Hagenburger 

Copyright LIST et l’auteur 


1000 REM routine inversion vidéo 

1010 A = #400 

1020 DS =‘ A9A08502A0008401B1014 
93F9101C8D0F7E602A502C9BF 
DO0EF60”’ 

1030 FOR I1=1 TO LEN(D$) STEP 2 

1040 V = VAL(‘‘#°’ + MIDS(DS$,1I,2)) 

1050 POKE A, V :A=A+I 

1060 NEXT 

1095 RETURN 


À n'importe quel endroit du pro- 
gramme, on peut procéder à un appel à 
la routine d’inversion vidéo par 
110 GOSUB 1000 :REM implantation 

routine 
120 HIRES 
210 
220 


CURSET 100,100, 1 

FOR 1=1 TO 76 STEP 3 :CIR 

CLE 1,1 :NEXT 

FOR 1=1 TO 9 

CURSET 10+CV,10,0 

CHAR ASC(MIDS(‘‘INVER 

SION’”’,1,1)),0,1 

260 CV=CV +6 :ZAP 

270 FOR J=0 TO 1 
:WAIT 25 :NEXT 

280 NEXT 


230 
240 
250 


:CALL #400 


990 END 


Faites SAVE‘‘INVERSION’” 
RUN pour voir ! 


puis 


Pour implanter des routines plus 
importantes (dépassant 33 octets), on 
fera : 

1020 REPEAT :READ D$ 


1070 UNTIL D$ = “GG” 
1080 DATA A9A08502A0008401… 


1090 DATA ZZ 
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LANGAGE MACHINE DU 6502 


LDA #AO 
STA 02 
LDY #00 
STY 01 


LA ROUTINE 
EN ASSEMBLEUR 


LDA (01),Y 
EOR 3F 


charge le numéro du premier bloc dans A 
range dans 02 (page zéro) 


charge le numéro du premier caractère du bloc dans Y 


range dans 01 

(l'adresse du 1° caractère de l’écran est dans 01/02) 
charge le caractère désigné par 01 et compte par Y 
inverse les 6 bits (6 points d’écran) 


STA 
INY 


BNE -9 


INC 02 
LDA 02 
CMP #BF 
BNE -—17 


RTS 


Remarque : 


(01),Y 


range le résultat à la même place (de l’écran) 


ajoute +! au registre Y (caractère suivant) 


si Y non = 
ajoute +1 sur 02 (bloc suivant) 


compare avec #BF 


charge le numéro du bloc dans A 


0 remonte de 8 octets (sur LDA) 


si non égal remonte de 17 octets (sur LDA), 


n'oubliez pas que Y est à zéro (début de bloc) 
retour au programme principal (Basic) 


en plus des calculs, le processeur doit faire des choix. Pour cela, il 


dispose de tests et d’instructions de comparaison, mais aussi d’instructions de bran- 
chement suivant le résultat du test. 
Les tests les plus fréquents consistent à décompter (les caractères d’un bloc...) et 
la comparaison est en fait une soustraction interne du 6502. 
C’est pourquoi on utilise le ‘‘branchement si non égal à zéro”’, BNE pour recom- 
mencer un traitement. 


#00 à #FF (adresse de début dans 01, 
mais comptés dans le registre Y). 


On inverse chaque caractère dans le 
registre À. On a donc recours à deux 
répétitions comme on le voit dans 
lencadré ci-dessus. 


L’instruction POKE permet de met- 
l tre une valeur dans un caractère de la 


N°2 - SEPTEMBRE 81 


mémoire. Pour implanter les valeurs 
de la routine, vous pouvez vous 
reporter au manuel de l’Oric-1 (page 
140) ou à celui beaucoup plus étoffé 
de l’Atmos. Nous allons choisir une 
méthode facilement généralisable 
pour les routines plus importantes. 


Le langage-machine du 6502 pos- 
sède 58 instructions qui sont codées 
en 1, 2 ou 3 octets suivant qu’il n’y a 
pas d’adresse, une adresse en page 
zéro (1 octet) ou une adresse longue 
(2 octets). Dans notre exemple : LDA 
#A0 sera codé A9 AO ; STA 02 = 85 
02 ; LDY #00 = AO 00 ; STY 01 = 
84 01 ; LDA (01),Y = B1 01; EOR 


#3F = 493F ; STA (01),Y = 91 O1 ; 
INY = C8; BNE —-7 = DO F7 
(#100—-7 = #F7 si > #80 BNE va 
vers l’arrière, sinon vers l’avant) ; 
INC 02 = E6 02 ; LDA 02 = AS 02; 
CMP #BF = C9 BF; BNE-—-17 = 
DC EF et enfin RTS = 


Vous trouverez, avec les quelques 
lignes d’implantation de la routine, 
un programme de démonstration. 
J'espère que cela vous donnera l’envie 
de découvrir à votre tour le langage- 
machine. 


Max HAGENBURGER 
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Avec certains ordinateurs, une 

copie imprimée de l’écran 
s'obtient grâce à une instruction uni- 
que, mais avec le PB-700, c’est tout 
un programme. Ou plutôt deux pro- 
grammes, l’un proposant une copie de 
l'écran point par point, l’autre la per- 
mettant ligne par ligne. Au choix. 


La copie point par point utilise le 
principe de l'instruction POINT : 
POINT (X, Y}) est égal à 1 si le point 
de l’écran de coordonnées X et Y est 
activé, et à 0 sinon. L’écran étant une 
matrice continue de 160 sur 32 points 
(soit 5120 points au total), X pourra 
varier de 0 à 159 et Y de 0 à 31. 


Le programme va analyser un par 
un tous ces points grâce à deux bou- 
cles emboîtées : 

e FOR X = 0 TO 159 
e FOR Y = 0 TO 31 


Chaque fois que l’expression 
POINT (X, Y) décèlera un point 
allumé sur l’écran, le PB-700 donnera 
l’ordre à la table traçante de dessiner 
un petit carré représentant ce point. 
Les coordonnées de ce carré étant 
proportionnelles à celles du point de 
l’écran, c’est-à-dire à X et à Y, l’affi- 
chage sera fidèlement reproduit sur le 
papier. 


La mise en œuvre du programme 
utilise deux des dix zones de program- 
mation. Dans l’une d’elles se trouve le 
programme de départ, c’est-à-dire 
celui qui réalise le tracé sur l’afficheur 
et dans l’autre, se trouve la routine de 
copie d’écran. Ici, les zones choisies 
sont PO et PS. 


La jonction entre les deux se fait en 
plaçant dans le programme principal 
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UNE ROUTINE SUR PB-700 


COPIE D'ÉCRAN 


ROFITANT de quatre lignes d'affichage, 
le PB-700 présente parfois de bien 
charmants dessins. Maïs ils sont à l'écran. 
Pour en obtenir une trace imprimée, deux 
conditions s'imposent : programmer une routine 
de copie de l'écran et... disposer 
de l’imprimante-table traçante, FA-10. 


une instruction de saut à la zone PS 
(GOTO PROG 5) ou bien en considé- 
rant cette zone comme un sous- 


programme (GOSUB PROG 5). Le 
tracé est alors automatique, et à la fin 
de la routine une instruction de retour 
doit renvoyer au programme princi- 
pal, en PO. 


Cependant, cette routine présente 
un défaut sérieux : l’exécution en est 
très lente. Il faut environ une dizaine 
de minutes pour que tous les points 
soient analysés et tracés. Ceux qui 
n’ont pas suffisamment de patience 
pourront se reporter directement au 
programme de copie ligne par ligne. 


I s’agit en fait d’une recopie 
manuelle de l’écran. La table traçante . 
dessine un cadre qui représente l’affi- 
cheur. Puis le PB-700 demande 
l'introduction, ligne par ligne, de ce 
qu'il faut placer dans ce cadre. On a 
alors le choix entre deux options : C 
comme Caractères ou G comme Gra- 
phismes. Si la ligne à tracer ne com- 
porte que des caractères directement 
accessibles au clavier, tels que majus- 
cules, minuscules, chiffres ou ponc- 
tuation, il faut choisir l’option C ; on 
tape directement la ligne et une pres- 
sion sur | l’imprime aussitôt dans le 
cadre. 

En revanche, si la ligne comporte 
un caractère ne pouvant être obtenu 
qu'avec son code ASCII précédé de 
CHRS, il faut choisir l’option G. Ce 
sera nécessaire par exemple pour les 
symboles « couleurs de cartes », pour 
les caractères japonais ou « kata- 
kana », etc. On donnera alors le nom- 
bre de signes de la ligne, puis on 
entrera, un par un, le code de chacun 
d'eux. Et la ligne sera imprimée auto- 
matiquement après un appui sur. 

Plus rapide, cette méthode est aussi 
plus « fatigante » puisqu'il faut 
entrer des codes qu’on ne connaît pas 
toujours. Quant au résultat graphi- 
que, il est bien différent d’une 
méthode à l’autre. Il ne reste plus 
qu’à choisir le plus joli. Et là, à cha- 
cun ses goûts. 


Pierrick MOIGNEAU 


La marche à suivre ligne par ligne 


Vérifier que le ploftér (table traçante) est prêt à fonctionner : touche PLOTTER 
sur ON, touche ON LINE/LOCAL sur ON LINE. En faisant RUN 1, on déclen- 
che le tracé du cadre ; sur l’afficheur apparaît cette question : 

LIGNE N° 1 / Caractères (C) ou Graphismes (G) ? 


En répondant €, l'affichage devient : 
ENTREZ VOTRE LIGNE. 


En tapant, par exemple, C EST UN ESSAI suivi del, les lettres sont aussitôt tra- 
cées à l’emplacement de la première ligne dans le cadre, La question de départ 


revient ensuite : 


LIGNE N°2 / Caractères (C) ou Graphismes (G).? 
Si cette fois la réponse est G, une autre question apparaît : 


NB DE SIGNES ? 


Il ne faudra pas dépasser 20. Chaque code pourra alors être rentré à la suite de la 


demande : 
Code du caractère no xx ? 


Par exemple, si le premier signe est un as de pique, il faut taper 232 4]. 


Quand tous les codes sont introduits, la ligne est imprimée à sa place dans le 
cadre. De même pour les lignes suivantes. 
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Copie d’écran point par point 
Programme pour PB-700 et FA-10 
Auteur Pierrick Moigneau 

Copyright LIST et l’auteur 


zone PO 


REM....Programme PrinciPpal,., 
PRINT "EXEMPLE DE COPIE..." 

PRINT "D ECRAN...x/X point Par Ppoi 
ni 
DRAUC2:28)-C156; 28)-(156; 32)-(2; 30 
)—-(C2: 28) 

GOSUB PROG 5 


En zone P5 


19 REM--- SS-PRGM COPIE D ECRAN --- 

28 REM ---INITIALISATION ET TRACE DU 
CADRE ==- 

30 LPRINT CHR$C28); CHR$SC372D:LPRINT "S 
2" 

48 LPRINT “AB;:0;96; -20" 

45 REM --- ANALYSE DE L AFFICHEUR --- 

98 FOR *X=8 TO 159 

68 FOR Y=Q TO 31 

78 IF POINTCX:Y)=Q THEN 100 ELSE 80 

75 REM --- TRACE DU POINT --- 

88 LPRINT "M": X/1.6666; "1";-CY/1,6€6) 
“15 

90 LPRINT "P'"';CHR$(46) 

188 NEXT Y:NEXT x 

11Q RETURN 


Exemple d’exécution point par point : 


EXEMPLE DE € 
D 'ECRAN...%/ 
Par point 
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Copie d’écran ligne par ligne 
Programme pour PB-700 et FA-10 
Auteur Pierrick Moigneau 

Copyright LIST et l’auteur 


REM —--- Copie d ecran lisne par li 

gne --- 

CLEAR :CLS :DIM A$C3)X20: EC20) 

REM —--- Mode graphique --- 

LPRINT CHR$(28); CHR$SC37) 

REM --- Trace du cadre --- 

LPRINT "AG;:0,;96; -20" 

REM --- Definition des espaces et 

de la taille des caracteres --- 

LPRINT "“Z4":LPRINT “S2" 

REM —--- ENTREE DES LIGNES --- 

FOR B=@ TO 3 

CLS PRINT "LIGNE NO";B+1:'Caracte 
res(C) ou srarphismes(6)?7"; 

D$=INKEYS:IF D$="" THEN 7@ ELSE IF 
D$="G" THEN 200 

CLS : INPUT "XENTREZ VOTRE LIGNE:"": 

A$(B) 

REM --- Position du debut delisne 

C=-4-CBx5) 

LPRINT "M1:";C 

REM --- Impression --- 

LPRINT "P';A$SCB) 

NEXT B:END 

REM —--- Cas des srarhismes --- 

CLS : INPUT "NB DE SIGNES"; J:FOR 1= 
1 TO J 

PRINT "Code du caractere no'"';Il;:IN 

PUT ECI) 

ASCBD=ASCBD+CHRESCECIDDENEXT I 

GOTO 98 


xemple 
ecran 
x B C MOVE 
_—-=22ÆÉÉ8E8ÉI 
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agac + Ngémardore INTER N ATion AT 


LILLE BRUXELLES GENEVE LILLE BRUXELLES GENEVE 


# et pros : et: mentation en français 
plus performant en matière d'adapt str : é es - Lace basse È 
logiciels de qualité en frança 


Spectrum, rapide 
18SFF 1290FB x =... 


Utilitaires, langages et programmation en f 


5 de 
itilisateur. 
ession 8 


19SFF 1490FB x 


* TASWORD II (Traitement de texte accentué} 
fonctions professionnelles.M/D. CRF68 255F 


* TASPRINT (5 polices de caractères Suppl.)M/ + de 
possibilités de votre imprimante. CHF39 145 vs 


* BUDGET,gestion financière familiale complè 


CHEF35 = 
* GESTION STOCKS (Essentiellement prat 
recherche et analyse budgétaire. c 169FF 1290 


* COMPTABILITE PROF NELLE Journaux 
Facturation, Téléphonez-nou 
* SUPERCODE (boîte à outils,1 


chats/vent 


es. Banque. vos programmes 
185FF 1290F8 

monde, et 

9 85FF 799FB x =.... 

e bridge contre 

F35  9SPF 89SFB x =.... 


* BASIC étendu (10 instr 


* Escargot-LOGO (graphis 
* Sémaphore MICRODRIVE 4 
manuel français de 288p.) Ed : ons ubie x 
précision, ombreux blo 


mie... CHF40 


CHF29 


in x 
vrai FORTH sur Spectrum. à * maudi x 

touri x 
Jeux de réflexion, adresse et arcade pour ctrum {doe. Frans} 


9SFF B95FB x =.... 
95FF B895SFB x += 


* SUPERECHECS 3.0 - 19 niveaux de ie pl 
et puissant sur Spectrum. CHF35 16 
* MONSTRES EN Un cauchemar parmis Les 
créatures du démon. SSFF 725FB > Ts. * WHEEL 
* METEORIDES. La mei Ex 
d'arcades "ASTEROI 
* ROBON. Combattez pour survivre 
9 niveaux. Sons et graphismes 
* MEGAPEDE. Pas moins de 9 nive 
et graphismes haute résolution. 
* REPULSAR. Seul à vos manett 
Effets sonores et graphisme 
* LES OISEAUX DE FEU. Vous êt 
de l'humanité. Ne craguez p 
* OSTRON. Chevalier du futur, 
Seigneurs des Ténèbres... 
* UGH! Revivez l'âge des caver 
et tyrannosaures} 
* STARBLITZ. Guerre- 


895FB x » 
votre appareil 
895FB X =.... 


100FF 


ure version 


85FF 79SFB x 2... 


85FF 795FB x =.,.. 


ivez 


95FF 895FB x =.... 


aix dJabolique. 


36FF 


89SFR x 


MOLAR MA 
FECKO, ALCHENIS 


JUMPING JACK, STONKERS 
95FF B95FR x 
{complet avec pté 
935FF 


7SFF  525FB x 


lair dans BUGABOO, MINED OUT, FRENZY 


9SFF A995FB X =... 
lipper dans : : ê 
8SFF 7YSFE x 


À FLIPPER. Un réalisne 
votre salon... 

* STOPPEZ LES MISSIL 
non-sexiste et sati 
* CHAINE DE MONTAGE. 


80rF S595FB x =.... 


iperbe! 


CK, D-LITHIUM LIFT, 


premier 


: > SPACE NARS, 
envier ! CHF29 9OFF 795FB x =... 
85FF TISÈD L =... * GRANDE s de ZX 81: 


vous n'aurez 


pour utilisateur 
Sinclair zx 81 
CHF40 125 


F 995FB x 2... 
Jeux d'ad 


ORTC 48 ot 


* SUPER METEORES. Tra € c le MmÉtTÉ 
aux bosses et aux la 
* GALAXIANS. Des vaisse 
-..Alerte rouge! 
* LA REVANCHE DE DRACULA ... ure visite dé 
toute tranquilité, Brrrr CHF 38 
* LA RAGE D'ACHERON. Gagnez La querre des 4 
votre Uric ou ATMOS CHP35 
* LE GEANT GLACE. Délivrez le 
cryoniques de Morgar. 


C9SFF 


les 


le Ro, 
rnationa) 


arcade en fr 


Jeux d'adresse pour 


* SUPERECHECS 3.0 - 10 niveaux de diff:culté * 
CHFA4O 125FF 995FB x .. # 

* 20IDS Excellent jeu d'arcade... CHF40 125FF 995FB x 
* REVELATION. Echappez-vous des cavernes de l'enfer en comb 
tant les monstres de l'Apocalypse CHF40 125 395FR 
* JEEPERS CRÉEPERS. L'arajignée < tissée plus vite que 
ombre, attention aux oiseaux at autres insectivores 
125FF 995FB 


CHF495 1960FF 12500FB: 
218 890FF 5690FB x 
oclavier + 16 k .. 
1190FF 7990FB x =... 
ie£) 
125FF 995FB x 
235FF 1880FB x 
890FF 5690FB x 
(4 pièces) 
3 315FF 2115FB x =.... 
£ DDC-S. 


* BUCKSQUAD Action soutenue! 
* QUARK ATTACK Concentration... 


PSN mt AN et AN HE m2 2e 


BON DE COMMANDE À RENVOYER À -- AAPIORE 59 S90FF 3990FB x = 
FRANCE: 104 Rue Nationaie -- Lille 140FF 1150FB x 
SUISSE: CH 1283 La Plaine -- > tel. 3 450FF 2990FB x = L 
BELGIQUE: 1 Rué du Plan Bicrge Wavre 0 510FF 3500FB x = C- 
tel. 02 / 6540611 - 02 46 b 1100FF 7490FB x 
OUVERTS LE DIMANCHE { sur 5 téléphonique | {5 pes) CHF3S 139FF B50FB x = 
sm esessessessnenmeesnmee cn L Claviër e i/{Spectrum Dk Tronics avec 
pavé numériqu CHF190 760FF 4S00FR x =... 


*#* Je verse la somme de ..,.,.. 
- LILLE: BNP 85 Rue Nationale No 2244 
- GENEVE:CCP 12-24798-3 où soc. 
- BRUXELLES: Société générale 271 


{FF / FR au compte 

12 DDC Séma, Intern, 
ban.suisse C0-192,930-1 
5791-50 DDC Sémaphore int. 


IE DDC Sém. 


**#* je joins un chèque barré de ..... CHF/FF/FB au nom de DpC TOTAL CHF FF 
*** je vous envoie un mandat poste de ......... CHF / FF / FB. mmandé CHF3 


éauansaieuris es pese péMentesesseseesssens TOTAL PORT COMPRIS CHF FF 


Nom! . . . . .  . Prénom . . . .  . Pays: . . … 


.. 


a a» Localités à à « 


+= 


Rue: . . .: . .  . N°:. .  . Code posta 


Lun 
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# Cou [RE 
sr P d'œil 


programmer 
# unordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l’actualité 
et vous fournit trucs, astuces et idées 
pour mieux programmer... 
Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous! 


Nez Du 


Des langages 
à découvrir. 


Ces ouvrages vous permettront d'apprendre des 
langages passionnants comme le Logo, le Pascal, 
le C... Chaque ouvrage vous donnera une vue 
générale du langage, ses éléments, ses 
instructions, et les moyens d'exécuter des 


programmes. 


Certains langages sont plus ardus que d'autres et 
nécessitent parfois une bonne connaissance de 
l'informatique et la maîtrise d’un autre langage, 
comme le Basic par exemple. 


Référez-vous à la couleur de la série de chaque 
ouvrage pour en mesurer le degré de difficulté. 


Le Basic 


des initiés : 


Le Basic de À à Z 


par Jacques Boisgontier 

176 pages - 110,00 FF 

Une initiation au Basic vous permet d’assimiler 
très rapidement les notions fondamentales de 
la programmation. L'ouvrage se poursuit par : 
un dictionnaire des mots clefs du Basic Micro- 
soft, TRS-80 et CP/M, permettant de retrouver 
rapidement lo syntaxe d'une instruction, suivi 
de programmes de synthèse et de programmes 
utilitaires. 


Le Basic et ses fichiers 
(tome |) 

par Jacques Boisgontier 

144 pages - 90,00 FF 

Cet ouvrage s'intéresse à la programmation 
des applications utilisant des fichiers sur dis- 


quettes ou sur disques. La version de Basic rete- 
nue est le 5 de Microsoft, fonctionnant sous 


CP/M. Les utilisateurs de TRS-80 et d'ordina- 
teur à microprocesseurs Z-80 et 8080 sont 
donc directement intéressés. 


Le Basic et ses fichiers 
(tome 2) 

par Jacques Boisgontier 

160 pages - 90,00 FF 

Ce second tome est essentiellement consacré 
à des programmes soit utilitaires comme le 
générateur de saisie d'écran ou le tri rapide, 
soit de gestion comme la facturation ou la paie. 


Le dictionnaire du Basic 


par David A. Lien 

480 pages - 195,00 FF 

Référence de base et outil de travail indispen- 
sable, cet ouvrage contient la liste des 500 
mots les plus importants du langage Basic 


s 
vec 


Programmer en L.S.E. 


par $. Berche et Y. Noyelle 
128 pages - 80,00 FF - série verte* 


Langages de 
programmation 


par S. Berche et Claude Lhermitte 
128 pages - 80,00 FF - série verte* 


Programmer en Logo 


par F.X. Testard-Vaillant et J.-P. Régourd 
208 pages - 100,00 FF - série bleue* 


Programmer en 
Assembleur 


par Alain Pinaud 
144 pages - 90,00 FF - série bleue* 


Démarrer en Forth 


par Paul Chirlian 
160 pages - 120,00 FF - série bleue * 


Programmer en Forth 


par Alain Pinaud 
160 pages - 90,00 FF - série bleue* 


Programmer en Fortran 


par Daniel Jean David 
128 pages - 80,00 FF - série bleue* 


« parlé » par les ordinateurs les plus diffusés, 
ainsi que leur définition et des exemples d'uti- 
lisation. Il procure les moyens d'adapter les dif- 
férents « dialectes » Basic à chaque ordinateur 
permettant ainsi de l'utiliser au maximum de ses 
possibilités. 


. . 

Logic Basic 

par P. Sénicourt et M. Massiou 

224 pages - 130,00 FF 

inie la programmation empirique en langage 
Basic : voici une méthode complète de pro- 
grammation structurée, illustrée d'exemples 
concrets | 

Après avoir expliqué la démarche d'analyse, 
es auteurs décrivent les nouvelles structures 
logiques à utiliser. Les principes de dessin des 
organigrommes et de rédaction des program- 
mes sont repris dans un logiciel d'analyse logi- 
que qui diagnostique les incohérences des pro- 
grammes écrits en Logic Basic. Chargé sur un 
ordinateur individuel, cet analyseur, écrit en 
langage Basic Microsoft, récompensera l'uti- 
isateur par l’édition d'un organiprogramme en 
traçant sur le programme lui-même l'organi- 
gramme d'origine. 


Le Basic Microsoft 


par Ken Knecht 

168 pages - 100,00 FF 

Voici un ouvrage d'initiation au langage Basic 
le plus répondu : le Basic Microsoft #0. 
Après avoir présenté le vocabulaire indispen- 
sable pour apprendre à programmer en Basic, 
l'auteur vous explique, exemples à l'appui, 
comment utiliser les chaînes de caractères, 
l'éditeur, les variables, les boucles, les fichiers, 
les opérations airthmétiques en Basic, etc. Cet 
ouvrage est complété par un index détaillé. 


Lisp sur Apple 


par Nicole Bréaud-Pouliquen 
112 pages - 80,00 FF - série bleue* 


Programmer en Pascal 


par Daniel Jean David 
et J.-L. Deschamps 
160 pages - 90,00 FF - série rouge* 


Pascal UCSD sur Apple Il 


par Jacques Rouault et Patrice Girard 
212 pages - 110,00 FF - série rouge* 


Programmer en C 


par Claude Nowakowski 
136 pages - 80,00 FF - série rouge* 


(*) Série verte : initiation 
Série bleue : 
perfectionnement 
Série Ee : 
approfondissement 
Série noire : maîtrise de 
la méthode 
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Clefs pour un micro 


Destinés à se trouver en permanence à portée de la main, ces ouvrages vous 
permettront de retrouver rapidement les informations dont vous avez besoin 
lorsque vous vous trouvez devant votre ordinateur. Les « Clefs » c'est : la liste 
des instructions Basic commentées, les mnémoniques, les points d'entrée de la 
ROM Basic, des explications sur les variables systèmes. Et c'est également : 
les caractéristiques des principales extensions, une liste d'astuces pour mieux 
utiliser l'écran, les cassettes et les programmes en langage machine. 


Clefs pour le TRS-80 
(tome 1) 


par Rémy Pineau 
192 pages - 120,00 FF 


Clefs pour ZX 81 

par Jean-François Sehan 

96 pages - 90,00 FF 
PC/DOS mot par mot 


par Yvon Darger 
120 pages - 90,00 FF 


Clefs pour le 


Commodore 64 
par Daniel-Jean David 
128 p., 100,00 FF 


Clefs pour le TRS-80 
{tome 2) 


par Rémy Pineau 
200 pages - 120,00 FF 


Clefs pour l'Apple Il 


par Nicole Bréaud-Pouliquen 
144 pages - 100,00 FF CP/M mot par mot 
par Yvon Darger 

112 pages - 90,00 FF 
Clefs pour Oric 
(Oric | et Atmos) 
par Emmanuel Flesselles 
124 pages - 100,00 FF 


Clefs pour le ZX 
Spectrum 


par Jean-François Sehan 


112 pages - 90,00 FF 


Clefs pour le Vic 


par Daniel-Jean David 
120 pages - 90,00 FF 


Demandez notre catalogue général gratuit 
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LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtex-en tres 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous ètes certain 
de n'en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-etre une bogue on deux, 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en frouverex un grand 
nombre. Certaines sont de portée très générale. 


D'autres ne valent que pour un matériel 


particulier. Mais dans tous les cas, vous aurez 
intérèt à être curieux, à fouiner dans la boîte à 


malices. Mème s'il ne s'agit pas de votre 
machine, vous trouverex souvent des idées à 


reprendre. Par ailleurs, vous avez sans doute vos 
propres recettes, vos façons de faire... Si ce ne sont 
pas des secrets que vous cherchez à conserver 


jalousement, faites-en part au journal. Celles qui 


nous paraïitront les plus intéressantes enrichiront 
à leur tour la boîte à malices. Tous les lecteurs 


pourront ainsi en profiter. 
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DEUX IDÉES 
A CREUSER... 


Quand on tape un programme 

en position normale (255, 31), 
le temps de réponse est relativement 
long ; la frappe rapide est impossible. 
Ceci est dû au nombre de pas de pro- 
gramme. Plus il est grand, plus le 
temps de réponse augmente. Il faut 
donc changer de position. Essayez de 
taper rapidement en Part 32: +1 = 
Pause RST, puis rentrez le même pro- 
gramme en Part 58, par exemple. 
C’est beaucoup mieux, non ? 


Autre chose, moins utile certes, 
mais bizarre. Effectuez sur votre 
machine la séquence 2nd Part 37 2nd 
CP 2nd Part 64 2.61 STO 63 RST 
LRN. Pressez maintenant sur SST et 
un 2 s'inscrit à l’affichage ; SST une 
seconde fois et deux étoiles apparais- 
sent. Cette ‘‘instruction”” est inconnue 
du manuel. En remplaçant 2.61 par 

.71 dans la séquence précédente, on 
obtient un autre affichage anormal : 
*IN. Peut-être y a-t-il quelque chose à 
découvrir de ce côté-là... 


Eric BERTREM 


UN ÉCRAN 
VERT 

4 PEU 

DE FKALS 


Beaucoup d’amateurs se con- 

tentent, en guise de « moni- 
teur », d’un téléviseur noir et blanc 
plus ou moins ancien (et plus ou 
moins bricolé). 


Il est assez facile de le transformer 
en écran vert ou ambre, à condition 
que ledit téléviseur soit définitivement 
dévolu aux activités informatiques. Il 
suffit... de peindre l’écran ! 


La meilleure façon de procéder est 
sans doute d'utiliser un pistolet à 
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peinture et de la laque transparente 
colorée (vernis « vitrail » que l’on 
trouve chez les marchands d’articles 
de dessin). On trouve aussi des vernis 
du même type conditionnés en bom- 
bes. Il faut opérer dans un local aussi 
dépoussiéré que possible et passer au 
moins trois couches de vernis dilué à 
l’aide d’acétone ou d’un solvant plus 
volatile que le white-spirit. Comme 
cela sèche très vite, il est possible de 
tout faire dans la même séance. Avec 


un peu de soin et une pairé d’heures 
de travail, vous voilà détenteur d’un 
écran vert aussi agréable que les 
« vrais », et bien moins cher ! 


Cela dit, soyez prudent. Si vous 
n’avez jamais utilisé cette technique, 
prenez d’abord conseil dans votre 


entourage auprès de quelqu’un qui la 
connaît bien. Le pistolet (même à 
peinture !) peut avoir des effets désas- 
treux.… 


Marcel LAGLASSE 


… POURRIEZ PAS 
DÉBRANCHER LA 
TÉLÉ AVANT DE 
PEINDRE ? 


TOY 
UN PETIT RENUM 


Le Basic du TO7 en version de base, si musclé soit-il, ne compte pas l’ins- 

truction RENUM (elle est fournie par le SED( aux heureux possesseurs 
d’un lecteur de disquettes). Cette instruction, très pratique, permet de renuméro- 
ter les lignes d’un programme de façon automatique. 


Voici un petit programme qui implante en mémoire une routine en langage 
machine renumérotant les lignes de programme de 10 en 10. Après avoir indiqué 
le nouveau numéro de la première ligne en faisant POKE 34560, (L@256) puis 
POKE 34561, (LMOD256) où L représente le nouveau numéro, on lance le 
RENUM par la commande EXE€C 32000. 


100 CLEAR, 31999 

110 FOR 1=0 TO 22 

120 READ OCT 

130 POKE 32000 +1, OCT 

140 NEXT 

150 DATA 142, 101, 245, 16, 190, 135, 0, 238, 132, 48, 2, 16, 175, 132, 31, 49, 


49, 42, 238, 132, 38, 243, 57 


Après RUN, le petit RENUM est implanté et l’on peut donc effacer les six 
lignes de Basic. 


Cet utilitaire, très court, ne corrige évidemment pas les branchements par 
GOTO ou GOSUB qu’il faudra donc rectifier après coup. 


Jean-Paul CARRÉ 


(1) SED : système d'exploitation de disquettes ; DOS en anglais. 
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ÉCRIRE : 
CA USE, USE... 


Un petit truc pour les posses-- 

seurs de PC-1500 et surtout de 
l'imprimante CE-150 : comment éco- 
nomiser les quelque 45 francs néces- 
saires au réapprovisionnement de 
votre périphérique favori, bref, rem- 
plissez vous-même vos stylos ! 


Une encre de remplacement paraît 
tout à fait adaptée : celle des feutres 
classiques (genre Baignol & Farjon ou 
autre). Après avoir ouvert le petit 
stylo, ôter la feutrine usée et la rem- 
placer tout simplement avec un bout 
de celle du feutre martyr. J’en suis à 
mon troisième rechargement de ce 
type sans aucun problème. De toute 
façon seul le stylo usé peut souffrir de 
Popération (à l’ouverture par exem- 
ple), mais il était perdu pour l’infor- 
matique... Alors sans peur ni 
remords ! 


Et ceci vaut aussi bien sûr pour les 
imprimantes des ordinateurs Canon 
X-07, Casio PB-700, Sanco TP-8300, 
bref toute imprimante « tablette- 
traçante » qui équipe désormais un 
nombre croissant d’ordinateurs de 
poche. Attention toutefois, car cette 
manœuvre vous fait sans doute perdre 
la garantie qui couvre votre impri- 
mante. 


Gérard BEJOT 


FONCTIONS 
CLASSIQUES 


Les ordinateurs Hewlett-Packard 

possèdent la réputation méritée 
d’offrir à leurs utilisateurs de très 
nombreuses fonctions. La HP-41 C 
n’échappe pas à cette règle. Mais ses 
utilisateurs sont souvent à la recher- 
che de nouvelles fonctions synthéti- 
ques ou provenant de modules... Et 
pourtant les bonnes vieilles fonctions 
du CATALOG 3 sont toujours là. 
Pourquoi les oublier ? 


Ainsi pour SIGN, fonction mécon- 
nue de la HP-41 C, et cependant bien 
utile... SIGN, en mode programme, 
remplace le nombre placé en X par 
« 1 » si ce nombre est positif ou nul, 
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ou par un « —1 » s’il est strictement 


négatif. Quant au nombre, il se 
retrouve en LAST X. 


Mais à quoi peut donc bien servir 
cette fonction ? Pendant des années, 
je ne m’en suis pas servi jusqu’au 
jour où j’ai découvert que cette fonc- 
tion permet surtout de remplacer 
« 1 » quand on sait que le nombre en 
X est positif. L'avantage est énorme, 
surtout au sein d’une boucle répéti- 
tive. En effet, l’instruction « 1 » est 
exécutée en 7/100° de seconde contre 
2/100° seulement pour l'instruction 
SIGN. Par conséquent, lorsqu'une 
boucle tourne 50 fois au sein d’un 
programme, vous gagnez 2,5 secon- 


des... ce qui n’est pas mal pour le 
remplacement d’un octet par un 
autre. 


Certaines dispositions de la pile 
permettent même des gains d’octets, 
quand par exemple le nombre placé 
en X devient gênant et qu’il faudrait 
de toute manière l’éliminer par un 
RDN ou par un CLX. Dans ce cas, 
SIGN remplace RDN 1. 


Et CLX ? Combien de fois devons- 
nous utiliser des zéros : pour initiali- 
ser une mémoire, un registre de la 
pile, etc. Il suffit de remplacer « 0 » 
par « CLX », lorsque le nombre en X 
n'est pas précieux : 1,75/100° de 
seconde au lieu de 8/100° de seconde. 

Mais cette même fonction peut ser- 
vir à autre chose : par exemple, rem- 
placer RDN. Cela peut paraître éton- 
nant, mais CLX et RDN peuvent 
avoir un résultat strictement équiva- 
lent au sein d’un programme. Exami- 
nons ces deux petites routines : RDN 
RCL O1 et CLX RCL 01, et nous 
constaterons qu’elles sont 
identiques... sauf le fait que RDN 
perd 0,5/100° de seconde par rapport 
à CLX. Voilà un bon moyen d’accélé- 
rer certains programmes... 


L'instruction CLX nous réserve 
encore une surprise : écrivons le petit 
programme suivant : 

LBL « LIST », 1, ENTER, ENTER, 
ENTER, CLX, 3, END. 


A la fin du programme, la pile se 
présente comme suit : T, Z et Y con- 
tiennent 1, et 3 se trouve en X. 


Maintenant, intercalons un LBL 01 
— instruction apparemment sans 
incidence — entre CLX et 3. Nous 
obtenons : LBL LIST, 1, ENTER, 
ENTER, ENTER, CLX, LBLOI, 3, 
END. 

N'est-ce pas le même programme ? 
Et pourtant... Nous avons maintenant 
len Teten Z, 0 en Y et 3 en X. Que 
s’est-il passé ? A vous de le deviner. 
pour mieux comprendre CLX. 
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Autre fonction qui peut être très 
performante en certaines situations : 
%o. Ainsi, si vous devez diviser un 
nombre par 100. Vous écrivez : 100 / 
(coût : quatre octets ; durée : 
16,75/100° de seconde). 


Alors, pourquoi ne pas remplacer 
ceci par : 1% ? Avec seulement deux 
octets, et 10/100° de seconde, l’avan- 
tage n'est-il pas évident ? 

Passons maintenant à un parfait 
exemple de double emploi : exécutez 
R/ ou RCLT, vous obtenez le même 
résultat : la pile se transforme ainsi : 


a >T b—T 
bZ devient © Z 
CT dY 
dx a+ X 
De plus, RCELT coûtant deux 


octets, il devient nécessaire de bannir 
cette fonction de tous vos program- 
mes. 


Mais cet exemple de double emploi 
est-il si parfait ? RCLT peut-il deve- 
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nir irremplaçable en certaines occa- 
sions ? À vous de réfléchir. et si 
vous ne trouvez pas, voici une colle : 
à partir d’une pile V=T, V7, a—>Y 
et b—>X, obtenir une pile: aT, 
b—Z, bY et a—X en quatre octets. 
Si l’on veut utiliser R/, nous pouvons 
effectuer ENTER”, ENTER, R’ et 
STOT, mais cela prend cinq octets. 
Tandis qu’avec RCLT la solution 
tient en quatre octets seulement : 
ENTER", ENTER" et RCLT. 


Encore une occasion de constater 
l'intérêt qu’il y a de posséder beau- 
coup de fonctions, même d’emplois 
proches. 


Un petit problème pour finir : en 
X, un nombre à multiplier par 2 et 
toute une pile truffée de précieux 
nombres rendant impossible la 
séquence 2X. Alors, écrivez tout sim- 
plement ST +X... 


Gilles BRANSBOURG 


NACRO-INSTRUCTIONS 


Pour mieux gérer l’écran avec 

un T199/4A, il faut concevoir 
de nouvelles instructions. Elles sont 
programmées ici sous la forme de 
petites routines, logeables en fin de 
programme. Pour y accéder, un 
GOSUB suffira en recopiant bien les 
REM. Bien sûr, le passage des varia- 
bles est total, vous pourrez utiliser 
celles qui sont incluses dans les routi- 
nes en dehors de leur exécution. 


PRINT AT écrit le contenu de T$ 
sur la ligne L, à partir de la colonne 
C (le saut de la ligne est respecté). 
CADRE trace un... cadre aux dimen- 
sions spécifiées par deux coins oppo- 
sés du rectangle (L1,CI et L2,C2). 
Cette fonction ne doit pas être utilisée 
pour générer un tableau, car le cadre 
occupe l’emplacement d’une ligne et 
d’une colonne à chaque case ; par 
contre, cela est très utile pour générer 
des fenêtres d’affichage intégrées à 
l’écran : on peut les colorer en les 
remplissant de caractères transparents 
dont le fond aura la couleur voulue, 
SPACE (ASCII 32) ou bien OBLITE- 
RATION (ASCII 127) par exemple. 


LUTIN est très pratique pour 
déplacer du texte — ou du graphisme 
— à travers l’écran sans modifier le 


contenu de celui-ci : en superposition 
en quelque sorte. Pour être efficace, 
cette routine doit s’inscrire dans le 
programme principal en petits mor- 
ceaux ; elle porte le caractère de code 
S à la ligne L, colonne C, puis le 
déplace à la vitesse horizontale VC et 
à la vitesse verticale VL (VC et VL 
prennent uniquement les valeurs +1 
ou —1). 

VALIDATE est très intéressant 
puisqu'il permet de saisir du texte 
n’importe où sur l’écran, et d’effec- 
tuer des commandes sélectionnées 
avec les touches de fonction : vous 
avez la possibilité de définir la réac- 


ALLEZ, À TOÏ DE 
JOUER, LUTIN ! 
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Un PRINT à paramètres sans ‘‘scroll’” vertical 


100 REM 


Un lutin averti en vaut deux 


Se 100 REM, <== 2x 2 
110 REM PRINT T$ AT(L,C) 110 REM LUTIN (L,C,S,VL,VC) 
120-REM SRE RSSESRSSSSER JAOU-REM === e=ese=it 
130 FOR I-=1 TO LEN{T$) 140 L=L+VL+24x((L.:2)x(VL<O) -{L:23)x( VL:0)) 
140 CALL HCHAR(L,1+C-1,ASC(SEG#{TS,1,1))) 150 C=C+VC+32x((C<2)x (VC O)-(C:31)x(VC0) 


150 IF I1+C<32 THEN 180 


170 CALL GCHAR(L,C,R) 
160 C=1-I 180 CALL HCHAR(L,C,S) 
170 L=L+1 200 CALL HCHARCL,C,R) 
180 NEXT I 210 GOTO 140 
190 RETURN 


Avez-vous pensé à encadrer vos messages ? 


100 REM ------------------ 
110 REM 
120 REM 
130 CALL CHAR(95, “O0000000000000FF" ) 
140 CALL CHAR(124,"0101010101010101") 
150 CALL CHAR(125."FF") 

160 CALL CHAR{126, "8080808080808080" ) 
170 CALL HCHAR(L1-1,C1+1,95,C2-C1-1) 
180 CALL HCHAR(L2,C1+1,125,C2-C1-1) 
190 CALL VCHAR(L1,C1,124,L2-L1) 

200 CALL VCHAR(L1,C2,126,L2-L1) 


80 colonnes à la une, 


c’est 


Rangez soigneusement 10C REM --------.--- 

vos pages d’écran : afin 110 REM ECRAN T$(PAGE, LIGNE) 

: î es 120 REM -------- - 

de mieux les modifier 130 DIM TÉC6,24) 

140 FOR L=1 TO 24 

150 FOR C-1 TO 32 

160 CALI GCHAR(L,C,R) 

170 CALL HCHAR(L,C,30) 

180 T$(P,1L)=1$(P,L)&CHR$(R) 

190 CALI. HCHAR(L,C,R) 

200 NEXT C 

210 NEXT L 


plus confortable ! 


210 RETURN DORE Se 

119 REM 89 COL(TS,L,1I) 

129 REM --- 
On a toujours besoin de ce SUPER-INPUT 139 DISPLAY AT(L,1):SEGSCH$CP,L),1,28) 

149 CALL KEY(5,R,E2I::1=1 CR=8)*C121)-CR=9) 
100 REM ---------------. 159 1F R>31 THEN H$(P,L)-SEG#(HBCP,L),1,108& 
110 REM VALIDATE AT(L,C) CHRBCR)I&SEGS(HBCP,L),1+1,255)::1-1+1 
120 REM ----------- 169 GOTO 139 


130 CALL KEY(5,R,E) 
1840 IF R>31 THEN 180 
150 IF R‘O THEN 130 


160 ON R GOTO 130,130,130,130,130,130,130, 


130.130,130,130,130,130,130,130 
170 REM PRINT R 
180 CALL HCHAR(L,C,R) 
190 C=C+1 


La variable FACT contient son propre résultat 


100 REM ------ - 
110 REM FACT (CN) 
120 REM -------- 
130 F=LOG(N/EXP(1))xN/LOG(10)+(LOG(2xPI «N)) / (2xLOG(10) ) 


140 FA=1Q0T(CF-INT(F)) 
200 IF C<32 THEN 130 150 FAC=(1/12+(1/288-1/373/N)/ND/N 
210 L=L+1 160 FACT-(1+FAC)x*FA 
220 C=1 


230 GOTO 130 


Table de l’alphabet 


170 PRINT FACT;"E";INT(F) 
180 RETURN 


tion de chaque touche du clavier (un 
argument de 3 dans CALL KEY au 


997 DO0D38D47C847C0Y x à . 
998 DOB8DB80FB84847800 lieu de 5 bloque le clavier en majus- 
re ar dns cules) grâce à ON GOTO que vous 
10 RE NU ETS devrez paramétrer à votre guise. 
. ae ee dan Après avoir inscrit votre texte sur 
{e 52 
104 OOAUL OR AAA 4200 l'écran, vous serez sans nul doute 
105 1000301010102800 heureux de le sauver dans la variable 
2. 1000301010105020 adéquate : T$(PAGE,LIGNE), ou 
1 0040405060504800 : 
io. 2010101010102200 mieux T$(P,L). ECRAN stocke en 55 
109 0000685454545400 secondes le contenu de l’écran en y 
110 0000506848484800 déplaçant un pseudo-lutin au fil de sa 
111 0000344844241800 : 
1 HOG0 IS 21702020 lecture. Vous . saurez facilement 
113 0000182424 1A0404 apporter la modification qui restreint 
114 0000586440404000 la taille de l’écran aux 24 lignes de 28 
115 0000384030887000 É sde , 
A 010102810100 600 caractères utilisées par l’ordre 
117 0000484848483C00 PRINT. 
CEE Les utilisateurs du Basic étendu 
120 0000442810284400 profiteront de la routine 80 COL (80 
121 0000442414082810 colonnes) en l’adaptant à leur goût ; 
122 00003C0810207C00 


Pour les voyelles accentuées, 
remplacez les 4 premiers zéros par : 


- grave = 2919 


- aigu 


= 6819 


- circonflexe - 3844 
- tréma - 2499 
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celle-ci transforme une ligne donnée 
(L) en fenêtre d'affichage de 28 carac- 
tères sur une taille limitée (excusez du 
peu)... à 192 caractères. L'utilisation 
intensive de DISPLAY AT, qui est 
instantané, permet de rafraîchir l’affi- 
chage à un rythme élevé, d’où son 
double intérêt. 


Si ces éléments vous permettent de 


réaliser un début de traitement de 
texte ou d’image — avec ECRAN 
vous pouvez stocker plusieurs pages 
d'écriture puis les mixer à l’aide de 
SEGS(TS,X,Y) —, vous aurez sans 
doute besoin de créer un alphabet 
avec minuscules accentuées... 
reportez-vous plutôt à la table que 
nous vous proposons ; cela vous évi- 
tera de longs moments pour traiter 
l’interlignage et l’accolement des 
caractères. Une fois ceux-ci program- 
més par CALL CHAR, on les obtient 
directement au clavier. 


Pour finir, la petite routine 
FACT(N), résolument non-graphique, 
calcule la factorielle de N. On peut la 
délocaliser en faisant précéder les 
lignes 130 à 160 par DEF ; FACT 
prend alors automatiquement la 
valeur de n factorielle, au même titre 
qu’une variable. 


Ces outils en main, attelez-vous à 
quelques réalisations pratiques, en 
préservant la portabilité de ces routi- 
nes ; ce qui est acquis doit le rester. 


Michel ARDITTI 
N°2 - SEPTEMBRE S1 


UN TEST FACILE À ÉVITER 


Au cours du déroulement d’un 
programme, il arrive souvent 
qu’une variable doive « basculer » 
entre deux valeurs différentes : elle 
sert alors d’indicateur ou de drapeau. 


Ainsi, si la variable V contient la 
valeur a, alors elle doit recevoir une 
autre valeur, b, et si elle contient b, 
alors elle doit recevoir a. La traduc- 
tion en Basic de cette opération est : 
10 IF V=a THEN V=b : GOTO 30 
20 V=a 
30 Suite du programme 


Mais, la traduction la plus écono- 
mique, la moins gourmande en octets, 
est : 

10 V=a+b-V 
20 Suite du programme 


Par exemple, si V doit « basculer » 
entre les deux valeurs a =0 et b= 1, il 


_PB-100 
ÉTONNANT 


Les réactions bizarres de votre 

PB-100 vous intéressent. Alors, 
commencez par saturer sa mémoire. Si 
vous ne disposez pas de l’extension, six 
lignes pleines en P1 suffiront (62 étoi- 
les, par exemple) suivies de deux lignes 
du même type en P0. Si vous disposez 
de l’extension, il faudra plus de vingt 
lignes en P1. Une fois le remplissage 
effectué, détruisez la zone PO par un 
CLEAR et presque simultanément, 
éteignez la machine. Rallumez-la et lis- 
tez PI. 


Selon que vous le ferez en mode 0 ou 
en mode 1, le résultat sera déjà diffé- 
rent. De plus, avec un peu de chance, 
vous verrez des choses bizarres à la 
première ligne. Tout dépend du temps 
qui s’est écoulé entre la pression sur 
EXE et l'extinction du PB-100. 


* L’explication de ce phénomène est sim- 


ple. Quand on demande la destruction 
de la zone PO, l’ordinateur transfère 
les zones suivantes en début de 
mémoire programme. En éteignant la 
machine, vous l’avez interrompue dans 
son travail. D'où les résultats bizarres, 


Jérome G AUDIN 
N° 2 - SEPTEMBRE #4 


suffit qu’elle passe par la ligne 10 : si 
elle valait 1, alors 1 — V vaudra bien O0 
et si elle valait O0, alors 1—V vaudra 
bien 1. 


Un petit exemple d'utilisation per- 
met d'illustrer le gain d’octets. 


CSR 18) et inversement. Une première 

solution, en 46 pas, est : 

10 P=18 : WAIT 20 

20 PRINTCSR P ; ‘‘*” : IF P=18 : 
P=5 : GOTO 20 

30 P=18 : GOTO 20 


La deuxième solution n’occupe plus 
que 32 octets : 
10 P=18 : WAIT 20 
20 PRT CSR P ; ‘‘*”” : P=23-P : 
GOTO 20 


Ce n’est pas plus compliqué que 
cela. 


Sur l’écran d’un FX-702P, on vou- 
drait voir passer une étoile de gauche 


(position CSR 5) à droite (position Michel SUSINI 


ÉLIMINONS LES PARASITES 


Le secteur véhicule des parasites et des micro-coupures qui s’avèrent 

bien gênantes lors de l’utilisation d’un micro-ordinateur, sans parler des 
franches pannes de courant. Pour ces dernières, à part l’alimentation de 
secours, il n’y à pas grand-chose à faire, non plus d’ailleurs que pour les 
micro-coupures, sinon... prier pour que les condensateurs de filtrage de l’ali- 
mentation soient assez grandement dimensionnés pour suppléer momentané- 
ment à l’absence de courant. 


Restent les parasites. Vous savez : votre fils allume le tube au néon à la cave 
(le « ballast » est un peu poussif), juste en dessous du bureau, là où vous êtes 
en train d’entrer la 500€ ligne d’un programme que vous n’avez pas encore 
sauvé sur mémoire de masse... Il y a une bonne chance pour que vous ayez 
droit à un magnifique RESET (et une conversation avec votre fils !). 


FISTON, 
ÉTEINS CE 
NÉON! 


Un moyen simple d’éviter ces désagréments est de monter, dans la prise sec- 
teur de l’ordinateur, un suppresseur de parasites 250 V, appelé encore SIOV, 
GMOV, etc. Demandez à un vendeur de composants électroniques : il vous 
procurera le modèle qui convient (coût : moins de 10 FF). Ce composant a la 
forme d’un disque d’un centimètre de diamètre. Il suffit de connecter les deux 
fils qui en sortent aux bornes de la fiche 220 V assurant l’alimentation de 
votre ordinateur. Le tout est assez petit pour se loger à l’intérieur d’une fiche 
et vous débarrassera des parasites qui peuvent traîner sur le secteur. 


Alain MARLATTE 
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COMMODORE 


UNE 
VISITE 
EN PAMIELE 


La série des CBM 4000 Grand 

Ecran comme la série des 8000 
comporte une sonnerie incorporée en 
fin de ligne, comme sur une machine 
à écrire. A l’intérieur d’un pro- 
gramme, il suffit de faire PRINT 
CHRS$(7) pour qu’elle tintinnabule, et 
CHRS (135) pour qu’elle tintinnabule 
deux fois. EDEX 3.3 utilise cette par- 
ticularité pour signaler la fin d’une 
opération, et quand l’ordinateur a de 
gros gros calculs à faire, ou des 
fichiers longuets à charger (surtout 
sur cassette !), c’est agréable de pou- 
voir faire autre chose en sachant que 
la bête vous avertira quand elle aura 
fini. 


Mais on peut allonger la sauce en 
jouant de l’adresse 1004. A la mise 
sous tension, 1004 contient 16 : c’est 
le rythme auquel les sept notes qui 
composent la sonnerie sont débitées 
par la machine. Mettez-y une valeur 
plus grande (pas plus de 255, ça 
déborderait) par un POKE bien tem- 
péré, et Vous pourrez savourer note 
par note la douce mélodie du cons- 
tructeur. Ce n’est pas du Satie, mais 
c’est nettement moins impératif que le 
drelin d’origine, et puis quoi ! il vaux 
mieux être attiré par la musique que 
de venir quand on vous sonne. 


Des jeux 
et des touches 


Pas de joyeustique, pas de paddeu- 
les, c’est depuis le clavier que vous 
dirigez bolides et missiles des jeux que 
vous inventez. Et vous testez le clavier 
soit par un GET soit par un PEEK 
judicieux à l’adresse de la dernière 
touche enfoncée (151 sur CBM, 203 
sur VIC, 197 sur C.64). Mais vous 
vous heurtez aux raffinements de la 
machine : le tampon-clavier et l’anti- 
rebond. 


L’anti-rebond fait que si vous 
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maintenez la touche enfoncée, c’est 
comme si vous n’aviez appuyé qu’une 
fois. D’où crispation de l’index quand 
il faut se déguiser en machine à cou- 
dre si l’on veut faire trois pas à 
droite. La solution ? Faire croire à la 
machine que vous avez relâché la tou- 
che alors que c’est même pas vrai, 
heu-là ! L’adresse de la dernière tou- 
che enfoncée retourne le code de la 
dernière touche enfoncée, soit. Mais 
si on n’enfonce pas de touche, hein ? 
que retourne-t-elle ? Ben elle retourne 
un code qui veut dire qu’il n’y a pas 
de touche enfoncée (255 sur CBM, 64 
sur VIC et C.64). Alors, de là à faire 
un POKE 151,255 ou un POKE 
197,64 avant son GET, il n’y a qu’un 
pas. Essayez, vous verrez comme on 
est plus calme... 


Quant au quiborde-beuffeure, par- 
don, au tampon-clavier, il fait que si 
dans la frénésie du danger on a 
frappé trois coups à gauche et qu’on 
s’aperçoive qu’il faut virer à droite, le 
programme, bête et discipliné, exécute 
les trois coups à gauche avant de virer 
à droite, mais c’est déjà trop tard, 
vous avez perdu ! Or, les machines les 
plus récentes ont un tampon-clavier à 
géométrie variable. Faites PRINT 
PEEK (1003) sur CBM 4000 GE et 
8000, ou PRINT PEEK (649) sur 
C.64 (et aussi, je crois, sur VIC) : 
vous obtenez respectivement 9 et 10 ; 
c’est le nombre maximum de caractè- 
res que contient le tampon-clavier. 
Essayez FOR I=1 TO 
10000 : NEXT, et pendant la boucle, 


appuyez une bonne vingtaine de fois 
sur une lettre. Arrêtez, attendez la fin 
de la boucle : 10 lettres apparaîtront 
sur l’écran. Faites POKE 1003,1 ou 
POKE 649,1, puis commencez l’expé- 
rience : une seule lettre apparaît. 
Voilà comment faire que votre jeu ne 
prenne qu’un ordre à la fois. 


Maintenant, si votre meilleur 
copain a le dos tourné, faites POKE 
649,0 : PRINT CHRS$(147). L'écran 
s’efface, il y a un sympathique 
READY, le curseur clignote et... le 
clavier est mort. Sur VIC et C.64, 
RUN/STOP RESTORE vous tire 
d’affaire (à condition. d’appuyer sur 
les deux touches à la fois) ; sur CBM, 
après un POKE 1004,0 on n’a plus 
qu’à allonger le bras pour atteindre 
l'interrupteur en criant vengeance. 


2 , Quel est le code 
- ASCII de rien ? 


A cette grande question, un certain 
nombre de bécanes répondent bête- 
ment zéro. Le Commodore, depuis le 
PET jusqu'aux derniers-à-sortir-mais- 
qui-ne-sortiront-pas-à-moins-que..…., 
reste intelligent : il vous signale que ce 
n’est pas possible en vous balançant 
dans les gencives un ILLEGAL 
QUANTITY ERROR humiliant. 
C’est particulièrement embêtant 
lorsqu’on lit un fichier où il peut y 
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avoir des chaînes vides. Alors il fallait 
faire des acrobaties du genre : 

500 GET#88,CS$ : IF C$ =” THEN 
A=0 : GOTO 520 

510 A=ASC (CS) 

520 SUITE... 


Or, les IF, quand on veut tasser 
cinquante instructions par ligne, ça 
vous met en l’air. Heureusement, si 
C$ n’est pas un caractère, mais une 
chaîne, ASC(CS$) renvoie le code 
ASCII du premier caractère de la 
chaîne. Bon sang, mais c’est bien 
sûr ! Contentons-nous de faire : 

500 GET#88,C$:A = ASC(CS + 
CHRS(0)) 

et ça colle : si CS existe, c’est le pre- 
mier caractère de C$+CHRS(0), et 
on a son code, sinon, le premier 
caractère de la chaîne est CHRS$(0), 
dont le code ASCII est... Je ne me 
souviens plus ! 


Tout ce qu’on 
impute au pet. 


Toujours dans les fantaisies célè- 
bres, l’'INPUT du PET/CBM et celui 
du VIC. 


Sur PET/CBM, un simple 
RETURN en réponse à un INPUT 
fait arrêter le programme. Solution 
connue, ouvrir un fichier clavier : 
100 OPEN 1,0 : INPUT =I1,RS : 
CLOSE 1 : IF R$=”? ”’ THEN 100 


Mais on peut aussi faire croire à 
l'ordinateur qu’un fichier est ouvert 
sans l’ouvrir avec POKE 16,1 (sur 
4000 ; sur 3000, c’est POKE 14,1 et 
sur PET, POKE 3,1). On n’a plus 
qu’à traiter les effets secondaires, 
absences de retour à la ligne et de 
point d'interrogation. 

Sur VIC, INPUT «CECI EST 
UNE QUESTION DE PLUS DE 22 
CARACTÈRES » ; N vous fera défi- 
ler du REDO FROM START autant 
que vous voudrez. 

INPUT «ET CELA EST UNE 
QUESTION AUSSI LONGUE » ; R$ 
mérite d’être suivi d’un PRINT R$, 
pour voir. Essayez, vous m’en direz 


° des nouvelles. Morale, si la question 


plus la réponse doivent dépasser une 
largeur d’écran, posez plutôt la ques- 
tion par un PRINT, allez à la ligne et 
faites votre INPUT sans message. 


François J. BAY ARD 
N°2 - SEPTEMBRE #4 


CON VERSIONS D'ANGLES 


Certains ordinateurs ne connaissent qu’une seule unité d’angle, le radian, 
et quatre fonctions trigonométriques : sinus (SIN), cosinus (COS), tan- 
gente (TAN) et arctangente (ATN). 


Pour faire des calculs sur des angles connus en degrés ou en grades, il faut 
donc commencer par les convertir en radians. C’est facile si l’on sait qu’un demi- 
cercle forme un angle de n radians, de 180 degrés ou de 200 grades. Alors, un 
angle de A degrés est égal à un angle de (A*7n/180) radians, soit approximative- 
ment (Ax0,01745329) radians. De même, un angle de B grades est égal à un angle 
de (Bxn/200) radians, soit approximativement (Bx0,01570796) radians. 


Le problème se complique (un tout petit peu) s’il s’agit de retrouver un angle 
dont on connaît le sinus ou le cosinus. Dans ce cas, l’angle peut être retrouvé, en 
radians, par la formule : C = ATN (a/VT — a?) où a est le sinus de l’angle, donné 
au départ. Si c’est le cosinus qui est donné alors l’angle C en radians sera le résul- 
tat de ATN (VT—H!/b) où b est le cosinus donné au départ. 


Il ne reste plus qu’à convertir l’angle C en degrés ou en grades, si c’est néces- 
saire. 


En degré, C devient (Cx180/n) soit approximativement (C*57,29578) degrés 
et, en grades, C devient (C*200/n) soit approximativement (C*63,66197724) gra- 
des. 


Ces résultats sont plus faciles à obtenir sur les ordinateurs de poche : toutes 
ces fonctions étant préprogrammées, quelques touches suffisent. 


Anne-Sophie DREYFUS 


CHARGEZ 
VOS PROGRAMMES 
EN QUATRIÈME VITESSE 


Comme vous le savez sans 

doute, lors du chargement 
d’un programme, il se passe bien des 
choses dans l’ordinateur. Générale- 
ment, il lit l’avant-programme sur la 
bande, c’est-à-dire le sifflement con- 
tinu qui précède le « gazouillis » du 
programme proprement dit, puis le 
corps de ce programme et éventuelle- 
ment enfin, la «queue de pro- 
gramme » qui contient par exemple 


des indications permettant de vérifier 
que le chargement s’est bien déroulé. 


La vitesse de transfert des octets est 
faible (300 à 1 800 bauds environ), ce 
qui fait que le processeur passe son 
temps à attendre les bits venant de la 
bande magnétique. Et pourtant, cer- 
tains ordinateurs acceptent, une fois 
lue l’amorce de synchronisation, de 
« digérer » la bande à vitesse plus éle- 
vée. Pour ce faire, il faut évidemment 
disposer d’un magnétocassette à 
vitesse variable. 


GAZOULLIS pu PROGRAMME 


Essayez vite sur le vôtre et dites- 
nous le résultat de votre expérience. A 
titre indicatif, un DAI accepte de 
charger un programme trois fois plus 


r Ÿ D, vite que prévu. 


= —————— FRAPR. Alain MARIATTE 
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TOUS POUR UN 
ONZE POUR TOUS 


I jongler avec la pile 
HP-41 C, traquer 


et rogner le moindre octet 
dien…. Ou si, à l'inverse, 


opérationnelle de votre 
la milliseconde perdue 
est voire pain quofi- 


vous échappe parfois 


un peu de la subtile recherche des programmes en 
Notation Polonaise Inverse… 


Alors, voici qui doit vous 


intéresser. 


En matière de programmation, est-on jamais 


certain d'avoir fait aussi 
Le mieux pourrait-il être 


bien que possible ? 
l'ami du bien ? 


Dans cette rubrique, les défis se succèderont : des 
programmes toujours plus courts, plus rapides. 


Et les records tomberont ! 


Le programme à optimiser, 

défi lancé par Gilles Brans- 
bourg dans LIST n° 1, est un classi- 
que du genre. Tout amateur de pro- 
grammes de maths pour HP-41 C se 
doit d’en posséder une version dans sa 
mémoire : simplification de fractions. 
Après une lutte acharnée à coup 
d’octets, de millisecondes et d’astu- 
ces, nous n’avons pas un vainqueur 
mais... onze ex aequo ! 

Ces onze auteurs se partagent donc 
la satisfaction d’avoir réalisé ‘‘le”? 
meilleur programme de simplification 
de fractions pour la HP-41 C : 

E. Aubourg, A. Borsay, G. Brans- 
bourg, F. Galichet, J. Hectus, A. 
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Joux, A. Maucuer, A. Peruta, A. 
Terlinden, L. Tordjmann et O. Zim- 
mer. 


Il s’agissait de simplifier des frac- 
tions dont le numérateur et le dénomi- 
nateur se trouvent en Ÿ et en X. La 
méthode classique, employée juste- 
ment par tous les lecteurs qui ont par- 
ticipé à Misez p'tit, est celle du calcul 
du PGCD (plus grand commun divi- 
seur) des deux nombres en Y et en X. 
A la fin, la nouvelle fraction, simpli- 
fiée, est obtenue en divisant Y et X 
par ce PGCD. 

L’algorithme du calcul est repré- 
senté (figure 1) en organigramme. Il 
est assez clair en lui-même en ce qui 


DMISEZ P'TIT : OPTIMISEZ ES 


concerne les instructions du calcul, 
reste à examiner sa logique et, bien 
sûr, la manipulation de la pile opéra- 
tionnelle. 

Le calcul de Y modulo X est fonda- 
mental. Son résultat est nul si Y est 


“FRA 


Gi+LBL 


42 RCL 
GZ RCL Y 
G4+LBL 9 
a MOD 

Gé LASTK 

EF REY 
A8 xrH? 
99 GTO 

1A RIM 

11 ST: Z 
12 

13 END 


aa 


divisible par X. A titre d'illustration 
le tableau de la figure 2 donne l’état 
de chacun des registres de la pile opé- 
rationnelle pour la simplification de la 


‘ fraction 127/381. 


Le programme (LBL T FRA) 
occupe 11 pas et 15 octets sans comp- 
ter ni le LBL de tête ni le END final. 
Les temps d’exécution sont, pour les 
fractions données en exemple : 
127/381 et PI/1, respectivement, de 
0,305 seconde et 1,395 seconde. 


Il sera difficile de mieux faire, 
n'est-ce pas ? 


Jean-Christophe KRUST 


N°2- SEPTEMBRE $1 


| 
| 
| 
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Figure 1 

Algorithme de 
simplification de fraction 
dressé par. Arnaud Peruta. 
Yet X correspondent aux 
registres de la pile 
opérationnelle. 


Y < DENOMINATEUR 
X <-WUMERATEUR 


CALCULE Y MODULO X 


Xe Y 
Y = Y MODX 


N°2- SEPTEMBRE #1 


Y'EST LE 
PCGD DES YETX 
INTTIAUX 


- Figure 2 
Etat des registres de la pile 


pour la simplification de 127/381 


départ 


RCL Y 
RCL Y 
LBL 00 
MOD 
LASTX 
X<>Y 
X#07? 
GTO 00 — LBL 00 
MOD 
LASTX 
KXeZT 
X #07? 
RDN 
ST/Z 

/ 

fin 


127 381 127 127 381 
381 127 381 127 _ 
127 381 381 127 — 
0 381 127 127 127 
127 0 381 127 L 
0 127 381 127 < 
127 381 127 0 = 
127 381 1 0 : 
3 1 0 0 ne 


En italique se trouvent 127 et 381, respectivement, numérateur et dénominateur 
de départ. En gras, le nombre résultat du calcul effectué par l'opération. 
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